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SPECTRUM 
DEÜS EX MACHINA. ¡EL ARDIO-VIDEO! 


Un nuevo concepto de juego por ordenador 
llega de la mano de Investrónica 

Deus ex Machina. 

Una historia de Ciencia-Ficción creada por 
Andrew Stagg, con musida de Mel Croucher. 

Siéntate ante tu televisor .. sincroniza la 
banda sonora y sumérgete en un 
espectáculo total. 


Ha nacido el audio-video por ordenador. 

SPECTRUM. EL MAX1MUN EN SOFTWARE 
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<olvemos a dedicar las 
’air: el Ql- Ordenador 
aún le queda mucho 
menor el Spéctrum. 

* como vemos en este 

tuevos alumnos. 


Pasadas las vacaciones esnvai^. 
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GUSANEZ. 


ACTUALIDAD. En Barcelona una gran 
feria: el Sonimag. 


DISCOVERY 1. Una unidad de disco que 
encaja en el Spéctrum 


JUEGOS, Corre con el 911 TS y limpia 
la ciudad de malignos Gremlins. 


INTELIGENCIA ARTIFICIAL. 
Después de explorar el lenguaje como 
base del pensamiento, seguimos con la 
memoria. 


UN NUEVO OPERATIVO. 
Reescribimos el bucle principal para 
añadirle comandos muy interesantes al 
Spéctrum: un listado fascinante. 


QL-MAGAZINE. Con archive, Cartridge 
Doctor, y las últimas aplicaciones 
comerciales. 


CODIGO MAQUINA. Conceptos 
básicos que todo «humano» debe conocer. 


El Díscovery y el 
Spéctrum, una pareja 
mu y bien avenida. 


Inteligencia artificial: un buen inlcrfacc homhre-manuina. 


El Parchís, un juego 
de ordenador sin 
violencia y sin 
marcianos* 


PROGRAMAS. El juego del Parchís, 
para las tardes aburridas, y Listas 
Escolares, para los profesores 
informatizados. 


PREGUNTAS Y RESPUESTAS. 
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DISCOVERY1 

Unidad de disco 


Dado el gran número de alternativas para el 
almacenamiento masivo en el Spectrum, parece que la 
aparición de una unidad de disco sólo debe justificarse si 
aporta algo realmente nuevo. El Di seo ver y nos ofrece una 
unidad clásica y sin experimentos, pero muy válida como 
alternativa a los restantes sistemas. 


Una unidad de disco bien 
adaptada ai Spectrum 


Una de las principales virtudes 
del Discovery es que ha sido dise¬ 
ñado pensando en el Spectrum. En 
efecto, una vez conectado, y usan¬ 
do el tornillo y los dos topes de 
goma que se nos facilitan con la 
unidad, el conjunto queda fírme- 
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mente conectado, ofreciendo una 
gran comodidad de acceso a las 
funciones del Spectrum, 

La unidad presenta un ancho 
algo inferior al del Spectrum. Su 
base presenta una prolongación en' 
la parte anterior, con un bus de ex* 
pansión que permite úna buena fi¬ 
jación del ordenador. El único 
problema aparente es que el Dis- 
covery «aprisiona» la parte trasera 
del Spectrum, con la consiguiente 
dificultad para conectar la salida 

de TV y la toma de cassette. El co- Conexiones del Discovery. 
nector de alimentación no se pue¬ 
de conectar, pero eso no es un in- TV, ya que habrá que destornillar 
conveniente, ya que el Discovery e l ordenador. Quienes dispongan 
proporciona la corriente al sistema úe monitor de vídeo compuesto no 
entero. ¡Menos cables en nuestra sufrirán este inconveniente, ya que 
mesa! pueden conectar su aparato a una 

Nosotros no hemos tenido nin- salida de vídeo que hay en la parte 
gún problema en la «maniobra de trasera de la unidad, 
acoplamiento». Más problemático Igual que otras unidades, se aña- 
es extraer el cable de cassette o den algunos extras junto con la 

El Discovery por 

ios caminos de Santiago 

jos proyectos sobre inteligencia ar¬ 
tificial. Pero siguen siendo proyec¬ 
tos. Ahora me dedico a la gestión 
de pequeños negocios. Lo del disco 
de RAM es un buen invento, con¬ 
sistente en manejar 32 K de RAM 
como si fuese la quinta unidad de 
disco. Las opciones adicionales ha¬ 
cen posible una gestión de peque¬ 
ños negocios digna con una inver¬ 
sión reducida. El Discovery no 
sólo sirve para programar más có¬ 
modamente, también sirve para 
programar el Discovery. Intere¬ 
sante ¿verdad? 

—¿Y en cuanto a los defectos? 

—Es difícil esa pregunta: decir 
los defectos de una señora estupen¬ 
da es poco elegante porque, en rea¬ 
lidad, todos deseamos perdonárse- 



P ara Juan Rodríguez el Dis¬ 
covery es un auténtico des¬ 
cubrimiento, Lleva la direc¬ 
ción de Halt Software, em¬ 
presa afincada en Santiago 
de Compostela, canalizando la ac¬ 
tividad informática que ofrece una 
ciudad eminentemente estudiantil 
como ésta. 

A principios de junio se decidie¬ 
ron por el Discovery. Ahora, 
transcurrido un tiempo prudencial 
de estudio del equipo, nos cuenta 
sus experiencias. 

—¿Por qué una unidad de discos 
para el Spectrum? 

—Todo empezó en el momento 
en que quise realizar programas un 
poco serios. El cassette me produ¬ 
cía múltiples trastornos psicoso- 
máticos. El microdrive me gustaba, 


pero no resolvía mis problemas: a) 
utilizarlo asiduamente para progra¬ 
mar la fiabilidad, aunque superior 
al cassette , resultaba insuficiente. 
Podían fallar muchas cosas: el 
Spectrum, la corriente, yo mismo. 
Pero perder ocasionalmente las 90 
K de un cartucho me sumió en pro¬ 
fundas depresiones periódicas de 
difícil superación... 

—¿Supongo que ahí es cuando 
entra enjuego el Discovery? 

—Sí, me interesé por las distin¬ 
tas unidades del mercado. Estuve a 
punto de comprar la de Timex y la 
BETA. Pero al final me decidí por 

el Discovery. 

—¿Y fue una decisión positiva? 

—Por supuesto. Los ficheros de 
acceso directo evocaron en mí vie- 


unidad de disco. Discovery ] in¬ 
cluye un port Centronics y una co¬ 
nexión para joystick tipo Kemps- 
ton. Siendo éstos los periféricos 
más vendidos para Spectrum, pa¬ 
rece lógica su inclusión. El lateral 
derecho del aparato incluye estas 
dos conexiones, junto con una pro¬ 
longación del ó mí del Spectrum. 















Los discos de 3 1/2 pulgadas 
se imponen como un nuevo 
standard 

Pero vamos a lo esencial: la uni¬ 
dad de disco. Esta asoma por enci¬ 
ma de nuestro ordenador, en una 
posición cómoda para su uso. El 
Di seo ve ry está disponible en dos 
versiones, con una o dos unidades 
de disco de 3 1/2" (formato.^«v). 
Los discos son de simple cara/sim- 
pie densidad, lo que nos da una ca¬ 
pacidad aproximada de 180 K por 
diskeite. Es posible la ampliación 
de uno a dos lectores, a un precio 
de alrededor de 30.000 pesetas. 
Uno de los aspectos más importan¬ 
tes de cualquier disco es el sistema 
operativo, que complementa el 
BASIC con instrucciones que per¬ 
miten el manejo de los nuevos pe¬ 
riféricos. En el caso del Discovery 


La unidad de disco 
asoma por encima 
del ordenador. Los 
discos son de 
simple caraAimplc 
densidad. 



se ha optado por mantener la com¬ 
patibilidad con el microdrive al 
máximo, respetándose la sintaxis 
de los comandos en tanto sea posi¬ 
ble. La elección parece lógica, ya 
que el microdrive es un medio de 
almacenamiento muy extendido, y 
el que cuenta con más software en 
el mercado. 


El sistema de paginación es muy 
similar al del Interface I, pero in¬ 
cluye algunos cambios curiosos. 
Por ejemplo, si tecleamos PRINT 
USR 8 el sistema nos contestará 
imprimiendo el número de la ver¬ 
sión que estemos utilizando. A no¬ 
sotros la prueba nos dio como re¬ 
sultado 2.1. Por otro lado, un USR 



los. De todos modos, tengo que 
confesar que tiene sus sorpresas. 

En primer lugar, viene con un 
enchufe alucinante, pero totalmen¬ 
te inútil para la instalación españo¬ 
la. Parece querer decir que ios 
electrones anglosajones son más 
«chachis» que los tercermundistas. 


Realizado el cambio, si algo no 
funciona son cosas de la ULA. 

Otra sorpresa es el disco de tres 
pulgadas y media. La información 
es insuficiente, imprecisa, trivial y 
a veces errónea. 

Hay quien dice que otro proble¬ 
ma es que no hay programas espe¬ 


cíficos para el Discovery. Yo creo 
que esto es bueno. Siempre es posi¬ 
ble hacerlos o adaptarlos, y eso sig¬ 
nifica trabajo para quien sepa ha¬ 
cerlo. 

—Finalmente, ¿a quién se la re¬ 
comendarías? 

—El asunto tiene dos vertientes: 
et programador y el usuario. Desde 
el punto de vista del programador 
no se puede trabajar con cassette 
sin perder ios nervios. Si quieres 
desarrollar juegos o programas 
orientados al cassette, necesitas el 
microdrive. Si los programas están 
Orientados al microdrive , es reco¬ 
mendable ei Discovery. 

Desde el punto de vista del usua¬ 
rio el cassette es suficiente para 
juegos. Si utiliza ei Spectrum para 
la pequeña gestión, debería bastar¬ 
le el microdrive. Si no le llega, el 
Discovery es lo único razonable. 
Pero no cabe duda que para este 
usuario, la elección del equipo de¬ 
pende de la disponibilidad de soft¬ 
ware adecuado a sus necesidades 
específicas. 













14070 nos hará RESET del siste¬ 
ma de disco y el ordenador. USR 0 
sólo pone a cero el Spectrum, sin 
afectar al sistema de disco. 

Los comandos son compatibles 
con los del Interface 1 

El primer paso para utilizar un 
disco es formatearlo. Para ello bas¬ 
ta teclear FORMAT “m”;n;“Nom- 
bre”. Después de unos quince 
segundos, el disco habrá sido 
preparado para su uso. A partir 
de ese momento, el comando 
CAT n nos contesta con una 
lista encabezada por el nombre del 
disco, seguida por los nombres de 
los ficheros existentes, y finalizada 
por el espacio libre en el disco. Los 
números de unidades están asigna¬ 
dos a las unidades existentes, pu- 
diendo usarse el número 3 para 
formatear un segundo disco en la 
unidad 1 y hacer copias en la ver¬ 
sión con una sola unidad. 

Cuando usemos la unidad 5 el 
sistema entenderá que nos referi¬ 
mos a un RAM disk , es decir, a 
una simulación de disco que utili¬ 
za la memoria de nuestro orde¬ 
nador. Para utilizarlo hace fal¬ 
ta introducir CLEAR 32767, y 
después una sentencia FORMAT 
“m”;5;“Nombre’\ A partir de ese 
momento, podemos salvar y cargar 
ficheros del disco en RAM. con la 
salvedad de que toda la informa¬ 
ción desaparecerá cuando conecte¬ 
mos la alimentación de la unidad. 
Si bien la idea de un disco en RAM 
parece ingeniosa, no la encontra¬ 
mos de gran interés en una máqui¬ 
na que dispone de sólo 40K libres, 
de las que 32 son utilizadas por el 
disco. Sólo parece útil para traba¬ 
jos de programación en los que se 
modifique repetidas veces un pro¬ 
grama pequeño. En este caso se 
pueden salvaren el RAM disk las 
distintas versiones y probarlas, con 
cuidado de no olvidar pasar la in¬ 
formación al disco real antes de 
dar por terminado el trabajo. 

Con el Interface I, el Di se o ver y 
amplía el sistema de canales que 


utiliza el Spectrum para comuni¬ 
carse con los periféricos. Los cana¬ 
les añadidos son: «j», que controla 
el joystick. «t» y «b» se encargan 
de la comunicación mediante el 
Interface paralelo, y «m», que se 
refiere a ficheros de disco. 


Más canales c instrucciones 
más potentes 

Hasta aquí igual que la expan¬ 
sión de Sinclair. Las diferencias 
empiezan a aparecer con el canal 
«d», que se refiere al disco entero 
en operaciones de copia. « #», que 
se utiliza para asignar un canal a 
otro canal previamente abierto; 
«CAT» nos permite leer o escribir 
directamente del directorio de un 
disco (aunque la escritura se nos 
desaconseje, ya que hay peligro de 
estropear los datos almacenados). 
«CODE», por último, se utiliza 
para leer o escribir directamente 
de la memoria, y nos proporciona 
acceso al hardware de la unidad. 

Una especificación de canales 
muy completa, que aporta noveda¬ 
des interesantes sin perder la com¬ 
patibilidad. Los canales se asignan 
con la semencia OPEN # , que 
también resulta ampliada con res¬ 


pecto al microdrive. El nuevo for¬ 
mato es OPEN # flujo;canal AC¬ 
CESO. 

La sintaxis de la instrucción 
queda ampliada y simplificada, ya 
que con el Discovery no es necesa¬ 
rio especificar «m» si el canal se 
refiere al disco. Por otro lado, el 
parámetro de acceso permite las si¬ 
guientes posibilidades: IN, que in¬ 
dica que el fichero sólo se puede 
leer, y OUT, para los ficheros de 
escritura. 

En el caso del canal «m», se le 
pueden indicar más opciones: 
EXP, para EXPandir un fichero 
secuenciai. nos permite escribir a 
partir del final del fichero; se le 
puede añadir una longitud, que in¬ 
dica la ampliación máxima que 
puede sufrir el fichero, También 
aparece la opción RND n I ;n2 que 
permite crear ficheros de acceso 
aleatorio. El primer número indica 
la longitud de cada ficha, y el se¬ 
gundo el número de éstas. Para 
abrir ficheros ya existentes, basta 
utilizarla omitiendo el segundo 
número. 

En relación con los ficheros de 
acceso aleatorio, existe un nuevo 
comando necesario para posieio- 
narnos antes de leer o escribir: se 
trata de POINT # flujo;núm., que 











Abrir directorios, un lujo 
al alcance de pocos 
sistemas de disco 


posiciona el flujo de que se trate al 
principio de la ficha indicada. Si se 
abre un fichero secuencia) con ac¬ 
ceso aleatorio y longitud de ficha 
1, se puede utilizar POINT para 
recorrerlo con total libertad. 

Respecto a los ficheros secuen- 
ciales, los únicos de que dispone el 
microdrive, la principal diferencia 
es que pueden abrirse para entrada 
o salida sin depender de que exis¬ 
tieran o no previamente. También 
el comportamiento mediante IN- 
KEY$ es distinto. El Di seo ver y no 
da error de fin de fichero cuando 
leemos más allá del fin de un fiche¬ 
ro. Simplemente devuelve una ca¬ 
dena vacía. Si deseamos compro¬ 
bar el fin de fichero, debemos utili¬ 
zar la instrucción USR 432, que 
devuelve el número de bytes que 
nos quedan por leer en el flujo «ac¬ 
tivo». Para convertir un flujo de¬ 


terminado en el activo basta intro¬ 
ducir antes PRINT #n; 

Los comandos SAVE, LOAD, 
VERIFY y MERGE trabajan de la 
forma habitual, aunque en el caso 
de SAVE el sistema no da un men¬ 
saje de error si el fichero ya existe, 
sustituyéndolo simplemente por la 
nueva versión. Esta característica, 
cómoda en muchas ocasiones, re¬ 
sulta peligrosa si no tomamos la 
precaución de comprobar los 
nombres en el disco. 

Otro comando de mucha impor¬ 
tancia es MOVE, que permite 
transmitir el contenido de un flujo 
a otro. Una mejora importante con 
respecto al microdrive es que, si 
hacemos MOVE «k» to «s», por 
ejemplo, podemos finalizar pul¬ 
sando SHIFT ENTER. Esto nos 
permite llenar ficheros directa¬ 
mente desde el teclado. 


Para abrir el directorio de un 
diskette basta hacer OPEN # n- 
;“CAT”. A partir de ese momento 
podemos leer las diversas entradas, 
que consisten en 16 bytes para 
cada fichero, con tres punteros y el 
nombre del archivo al que están 
asociados. La primera entrada se 
refiere al propio directorio. Cuan¬ 
do se formatea un disco, el sistema 
deja sitio para í 10 ficheros. 

Si el disco contiene muchos fi¬ 
cheros pequeños, podemos que¬ 
damos sin sitio en el directorio an¬ 
tes de que se acabe el esapcio físico 
del disco. En ese caso, haciendo 
OPEN #4;“CAT"EXP long. y 
después CLEAR#4, el sistema 
nos ampliará el directorio a la Ion- 
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El sistema compacto que reúne en una sola unidad los siguientes elementos: 


Unidad de disco ultramoderna de 3,5” con 180 K. 

• Interface paralelo Centronics. 

• Interface de joystick tipo Kempston 


Salida para monitor monocromo 
Repetición del bus trasero del Spectrum. 
Alimentación interna de todo el sistema. 


FACILMENTE AMPLIABLE A 360 Kybtes. 


PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 


Contabilidad PNC (500 cuentas/4000 asientos) 
Tratamiento de textos 
Cambio de Moneda 
Control de stocks 


Facturación 
Nóminas 
Base de Datos 


PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO 


DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 
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Distribuido en España por: ÍStlael SISTEMAS LOGICOS SfüONA, S.A. - Avda. San Narciso, 24 -17005 GIR8NA - Tel. (972) 23 71 00 


NI F. A17/081068 







gitud deseada. La longitud debe 
especificarse siempre como múl¬ 
tiplo de 16 bytes. Por la misma 
razón, es preferible abrir siem¬ 
pre los directorios como OPEN 
# 4;“CAT”RND 16, y seleccionar 
la entrada deseada mediante 
POINT, 


Copia de discos y 
compactación 

Existen otras características que 
diferencian al Di se over y del micro- 
drive. Entre ellas, lo más interesan¬ 
te es que este sistema permite refe- 
renciar un disco entero. Por ejem¬ 
plo, MOVE “d”;l TO “d”;3 per¬ 
mite copiar el contenido íntegro 
del disco uno al tres. El sistema nos 
indicará cada cierto tiempo que 
cambiemos el disco y pulsemos 



Discovrr? abre los ficheros tipo CODE, ti los 
programas como sí fueran archivos de datos. 


cualquier tecla. El tiempo que tar¬ 
da en realizarse la copia depende 
de la memoria libre de que dispon¬ 
ga el Spectrum en ese momento, 
ya que el sistema utiliza como buf- 
fer la memoria libre. En algunos 
casos, con el disco totalmente lle¬ 
no, la operación tardó casi cinco 
minutos. 

Otra operación que puede aho¬ 
rrar tiempo en discos de datos que 


contengan muchos archivos es la 
compactación. Se realiza mediante 
MOVE “d M ;l TO “d”;l, y en ella 
el sistema reorganiza los ficheros, 
que al irse borrando y escribiendo 
habían desordenado la estructura 
del disco, para obtener el máximo 
rendimiento. La operación es len¬ 
ta, pero resulta interesante reali¬ 
zarla de vez en cuando en discos 
muy cargados, sobre los que se es¬ 
criba a menudo. 

Discovery nos deja abrir los fi¬ 
cheros tipo CODE o los programas 
como si se trataran de archivos de 
datos, sin dar error en ningún caso. 

Conclusión. Una unidad 
rápida y compacta 

Durante el tiempo que la hemos = 
utilizado esta unidad de disco nos 
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Cuide su Spectrum 



Proteja su ordenador y manténgalo 
como nuevo con esta práctica 
funda de teclado transparente 

! 

Servicio 
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ha dado una impresión muy posi¬ 
tiva. Al compartir la sintaxis de 
comandos «oficial» de Sinclair tie¬ 
ne acceso a una gran cantidad de 
software. Esta compatibilidad está 
muy clara en BASIC. En código 
máquina el manual no nos indica 
si también se ha respetado, y se 
echa de menos una lista de los «có¬ 
digos de enganche» (hook codes) 
del Discovery. Por otro lado, los 
comandos se han ampliado lo sufi¬ 
ciente como para poder tener acce¬ 
so a nuevas características que de¬ 
jan la potencia del sistema a nive¬ 
les difíciles de superar. Su veloci¬ 
dad de transferencia es buena, tar¬ 
dando una pantalla en cargar alre¬ 
dedor de cinco segundos. 

El manual está bien explicado y 
traducido al castellano, y a eso no 
estamos acostumbrados. La uni¬ 
dad simplifica las conexiones del 



Spectrum al hacerse cargo de la 
alimentación del conjunto e incor¬ 
porar un port de impresora. En re¬ 
sumen, sólo el precio (unas 63.000 
pesetas la unidad simple), y la de¬ 


cisión de elegir un disco de ISOK 
existiendo en el mercado unidades 
de hasta 720K, pueden deslucir 
nuestro descubrimiento de este 
otoño. 



ícw cable i 

\ COA/ LO Qot. ME HA COS TAPO / 

Solo me oañ UN CABLE / 



¡mica éa/aa/o, un cabue! 
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SERVK10 DE EJEMPLARES ATRASADOS 


Complete su colección de 

Mospectnm 

A continuación le resumimos el contenido de los ejemplares 


aparecidos hasta ahora. 

Núm. 1 *250 pts. 

Cómo usar e! microdrive/Progra¬ 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Va hables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
ce su Spectrum/Programas. 


Núm. 3 * 250 pts. 

Novedades sonimag '84/Ampüando el 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrlve/ 
Programación de un interface de im¬ 
preso ra/Programas. 


Núm, 5*250 pts. 

Floppys para Spectrum/Diseño asis¬ 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Así ha¬ 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Num. 2-250 pts. 

Gráficos profesionales/Desplaza¬ 
miento pixel a pixel/Utilización de 
rutinas/Construcciún del interface 
centronÉcs/Programas de utilidad pa¬ 
ra microdrive/Rutina reset en código 
máquina/Anáiisis del editor de textos 
Tasword/lnterfaces para impresoras/ 
Prog ramas. 


Núm. 4 *250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi¬ 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro¬ 
gramas, 


Núm. 6 *250 pts. 

Representación de funciones/Todos 
los caminos conducen a la RÜM/Jue- 
gos/Pascal/Construcción be un lápiz 
óptico/Programas de gestión. E\ SITI/ 
Logo: tortugas para todos/lnterrup“ 
dones del Z-60/Prog ramas 




SIN NECESIDAD DE ENCUADERNACION 


Para hacer su pedido, 

Mospectrun 


r 


rellene este cupón HOY MISMO 
y envíelo a: 

Bravo Murllfo» 377 

Tel. 733 96 62 - 26020 MADRID 


(cada tapa es para 6 ejemplares) 


Ruego me envión los siguientes ejemplares atrasados de TODOS- 
PECTRUM ...... al precio de 260 pts. 

Por favor envíenme . tapas para la encuadernación de mis 

ejemplares de TQDQSPECTRUM, al precio de 600 pts. más gastos de envío, 
El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA □ 1MTERBANK 

Número de mi tarjeta: 1111 1111 11111 |"T IT F 1 1 I. J 1.1 L U 
Fecha de caducidad ... Firma 


NOMBRE ..... 

DIRECCION . 

CIUDAD .. C. P. 

PROVINCIA ... 


DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 


fodospectrun 



















GREMLINS 


Erbe 

Spectrum48 K 
2.300 ptas. 


Las aventuras conversacionales con 
gráficos son un tipo de juego que tenía 
problemas para encajar fuera de Gran 
G retaña; quizá por problemas idioma- 
ticos, aunque hay quienes dicen que 
los usuarios ingleses tienen unos gustos 
diferentes a los continentales. Grem- 
lins nos dará una oportunidad de ave¬ 


riguar si el público español disfruta o 
no con este tipo de juegos. 

El juego tiene todos los ingredientes 
para resultar un éxito: los personajes y 
las situaciones son conocidos, los gráfi¬ 
cos son de calidad, la aventura tiene las 
dosis de dificultad suficientes para no 
aburrir, y, lo más importante, los tex¬ 
tos han sido traducidos al castellano. 

Como quienes hayan visto la pelícu¬ 
la sospecharán, se trata de restablecer 
el orden en un pueblo plagado de 
Gremlins a los que has dado de comer 
después de medianoche, engañado por 
sus trucos. Los retoños de Gizmo ame¬ 
nazan con invadir la ciudad, si no con¬ 
sigues acabar con dios. 

Para evitarlo debemos ir matándo¬ 
los progresivamente, comenzando por 


r 


Los «animalitos» 
no nos dejarán un 
respiro hasta que 
hayamos acabado 
con ía plaga. 






. i Barra*#*! I 


Si se comete el 
más ligero error , 
se paga caro. 


nuestra propia casa, y salir a continua¬ 
ción a la calle para completar el traba¬ 
jo. El comienzo es ya frenético, bastan¬ 
do un pequeño error en el primer mo¬ 
vimiento para ser enviados al otro ba¬ 
rrio. 

Un buen conocimiento de las técnL 
cas y armas requeridas para matar 
Gremlins nos resultará útil, así como 
recordar las escenas oportunas del 
film, que nos darán pistas sobre qué 
hacer en determinadas situaciones. 

Como en todos los juegos de aventu¬ 
ras, las dificultades típicas con las que 
nos tenemos que enfrentar implican 
pensar rápidamente qué hacer en de¬ 
terminadas circunstancias, aunque 
más veces de las que seria deseable d 
problema reside en saber cómo expli¬ 
carle algo al ordenador. La traducción 
del juego al castellano ayuda mucho, 
pero todavía no se puede decir que se 
haya llegado a hacer programas que 
«entiendan» nuestro lenguaje. 

Otra característica original del juego 
es que algunas de las imágenes gráficas 
incluyen movimiento, realzando el 
realismo de las escenas. Asimismo, la 
gran velocidad a la que se realizan los 
cambios de escena impide el aburrí- 
miento. Quizá el punto más débil de 


Control: Se le dan las órdenes 
por medio del teclado. 
Jugadores: Uno, 

Gráficos: Excelentes; una de 
las mejores aventuras gráficas. 
Sonido: No tiene. 

Nivel de dificultad: A veces 
resulta difícil encontrar la ma¬ 
nera de salir de una situación. 

Originalidad: Se trata de una 
aventura gráfico-conversacional 
bastante clásica. Su detalle más 
original e$ la incorporación de 
movimiento en algunos gráficos. 

Conclusión: La traducción al 
castellano de todo el texto de la 
aventura marca una nueva eta¬ 
pa en la comercialización de 
juegos de aventuras, que permi¬ 
te el acceso a éstos de muchos 
usuarios potenciales, impedidos 
hasta ahora por el idioma. 
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este juego sea [a poca claridad de algu¬ 
nos mensajes, que hacen difícil encon¬ 
trar la salida en algunas situaciones, 
Algunos pequeños fallos de traduc¬ 
ción no llegan a empañar la interesante 
iniciativa de sus autores y distribuido¬ 
res al traducir el juego. Esperamos que 
otras compañías de software se deci¬ 
dan a seguir este ejemplo, facilitando 
el acceso de los usuarios a este tipo de 
juegos, tan limitado hasta ahora por 
barreras idiomátieas. Y recuerda: No 
dejes que les dé el sol, no los mojes y 
sobre todo,... ¡Nunca juegues después 
de medianoche! 

911 TS 


ABC Soft 
Spectrum 48 K 
1,795 pías. 


Con nuestro Ponche 911 TS . y pa¬ 
trocinados por Dunlop. vamos a co¬ 
menzar un duro Rally por caminos di¬ 
fíciles, plagados de obstáculos. Antes 
debemos invertir nuestro dinero (hasta 
un máximo de 2.000 libras) en la com¬ 
pra de neumáticos, suspensión, etc. 

Ya con el preparado, salimos en el 
primer tramo cronometrado. El coche 
responde bien, aunque quizá giraría 
mejor si le hubiésemos puesto una di¬ 
rección mejor. Unos buenos amorti¬ 
guadores disminuyen el adaño cuando 
rozamos un obstáculo... 

La carrera se compone de ocho tra¬ 
mos cronometrados, existiendo la po¬ 
sibilidad de recoger equipo (neumáti¬ 
cos, ele.) durante el recorrido de los 
tramos impares, que son también los 
que comienzan con opción de compra 
de material. Para recoger el equipo 
basta pasar por encima con nuestro co¬ 
che, Pero hay que estar atentos para no 
chocar frontal mente contra un árbol, o 
meternos en un sacavón. 

La pantalla tiene una estructura 
muy similar al Granel National, con un 
pasillo por donde circulamos, y dos la¬ 
terales muy logrados, donde se nos 
muestran los daños que ha sufrido el 
vehículo, la velocidad, y el tiempo que 
nos falta para finalizar. Cuando acaba¬ 
mos cada tramo, se dan puntos en fun¬ 


ción del tiempo que nos haya sobrado. 

Los golpes que le demos al coche se 
acumulan, ya que al final de cada tra¬ 
mo el coche se recupera, pero sólo par¬ 
cialmente. Como consecuencia de esto 
conviene esquivar los obstáculos cui¬ 
dadosamente, ya que si los daños son 
excesivos no podremos continuar la 
carrera. 

Como principales virtudes del juego 
podemos citar el scroll, que origina un 
movimiento muy suave de la pantalla, 
con un paisaje muy realista en los late¬ 
rales. También es bueno el movimien¬ 
to de nuestro coche. 

El principal inconveniente es que 
todo el movimiento del coche se reali¬ 
za sobre una carretera recta, lo que no 
contribuye en absoluto a la sensación 
de velocidad, y esto sería muy necesa¬ 
rio en un juego que se supone de ac¬ 
ción. 


Control: Teclado, Joystick. 

Jugadores: Uno. 

Gráficos: Buenos, destacando 
la suavidad del scroll. 

Sonido: No es su fuerte. 

Nivel de dificultad: Creciente, 
el comienzo no es excesivamen¬ 
te difícil. 

Originalidad: Como todos los 
juegos de Elite tiene característi¬ 
cas fuera de lo normal. Incorpo¬ 
ra una primera parte en la que 
debemos comprar accesorios 
para nuestro automóvi l. 

Conclusión: Dentro del enfo¬ 
que clásico de carreras automo¬ 
vilísticas contra el reloj. 911 TS 
aporta la compra inicial de ac¬ 
cesorios para nuestro vehículo. 










































































■MTELIGENCIA 





L a experiencia es una ayuda 
imprescindible para com¬ 
prender cualquier fenóme- 
no. Todo lo que nos ocurre 
se codifica en función de 
nuestros conocimientos previos 
del tema. Por esta razón, dos per¬ 
sonas pueden vivir una misma si¬ 
tuación e interpretarla de distinta 
forma. 

¿Cómo se relaciona esto con los 
bloques de expectativas de los que 
hablamos en la primera parte de 
este artículo? Vimos que los blo¬ 
ques eran un buen método para re¬ 
cordar acontecimientos. En lugar 
de almacenar cada suceso como 
una nueva experiencia, un progra¬ 
ma puede grabar sólo un puntero 
con la información no contenida 
en el prototipo. La memoria sólo 
necesita registrar las partes de una 


En el número anterior comenzamos este artículo presen¬ 
tando ai ordenador como un fascinante laboratorio para 
experimentar las teorías sobre el pensamiento. Hablamos 
del lenguaje, que es quizá el terreno donde los complejos 


experiencia que se diferencian de! 
prototipo. 

Los bloques de expectativas 
contienen la información estándar 
de cada situación, por lo que pue¬ 
den utilizarse para organizar la 
memoria. Asumen por tanto un 
nuevo papel: además de propor¬ 
cionar las expectativas que ayudan 
a comprender los acontecimientos, 
desempeñan la función de memo¬ 
ria. 

Para funcionar como memoria y 
como estructuras de procesamien¬ 
to tendrán que satisfacer nuevos 
requisitos. El más importante es 


que todo sistema de memoria ha 
de ser dinámico. Nunca será real¬ 
mente útil si falla al responder a 
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nuevas entradas. El que una expe¬ 
riencia recuerde a otras indica que 
la misma estructura se utiliza para 
procesar una y recordar la otra. 
Examinando el proceso de recuer¬ 
do exploramos al mismo tiempo la 
estructura de la memoria. 

Armados con esta nueva con¬ 
cepción. volvamos a! ejemplo del 
restaurante. Supongamos que a! 
recibir la factura Pepe advierte un 
error y protesta. El camarero no 
sólo lo corrige, sino que además, 
para compensarle, le invita. Pepe 
—o cualquier sistema dinámico de 
memoria que intentase entender lo 
que ocurre-— registrará en su me¬ 
moria esta desviación de la rutina 
esperada. Sí posteriomente le ocu¬ 
rre algo parecido mientras compra 
repuestos para su automóvil, re- 
cordará el episodio del restaurante m 


procesos mentales se expresan con más claridad . Continua¬ 
mos con el tema donde lo dejamos: empezando a hablar de 
la memoria t estructura de datos en que se manifiesta lo le¬ 
jos que estamos de una teoría del pensamiento inteligente . 


las nuevas entradas y no aprende 
de sus experiencias. Si genera ex¬ 
pectativa. debe contestar a sus po¬ 
sibles fallos reestructurándose para 
crear mejores predicciones en el 
futuro, Además ha de ser capaz de 
localizar sus conocimientos. 

La misión de la memoria es to¬ 
mar un suceso determinado y en¬ 
contrar otros relacionados con él. 
Pero ¿cómo se discrimina entre los 
que guardan relación y los restan¬ 
tes? ¿Cómo se les puede localizar? 

Estos dos objetivos —-recuerdo y 
aprendizaje— guían las teorías so¬ 
bre la estructura de la memoria. 


Durante una conversación nor¬ 
mal. determinadas zonas de la me¬ 
moria se activan para entender las 





























¡APROVECHA AL MAXIMO TU SPECTRUM! 

Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 



Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi¬ 
ciente de la programación BASIC.' 

Incluye temas como: 

• Introducción al teclado, 

• Instrumentos útiles para la programación. 

• Uso de comandos fáciles. 

• Como construir un programa. 

• Técnicas de programación. 

• Aplicaciones prácticas. 

íoopags. - 750 PÍAS. 


Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de 7a programación. 

El temario incluye: 

• Reglas y herramientas del BASIC. 

• La técnica de los organigramas. 

• Cómo planificar un programa. 

• El mundo de las rutinas. 

• Variables y cadenas. 

• Funciones matemáticas usuales. 

109 p<jgs. - 750 PTAS. 


CUPON DE PEDIDO 

Recorta este cupón debidamente cumplimentado y envíelo a INFODIS. S. A. C/ BRAVO MURILLO, 377-5 ° A - 28020 MADRID 

/" - -- 

Si. envíenme el (los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas. en concepto de 
gastos de embalaje y enviG. 

El importe lo abonare: POR CHEQUE □ CONTRAREEMBOLSO □ CON TARJETA DE CREDITO (VISA □) 
{AMERICAN EXPRESS □) (INTERBANK □) 

Número de mi tarjeta 

TITULO ____ 

NOMBRE _ 

CALLE _ 

CIUDAD _ 

PROVINCIA 


D, P. 


Firma 
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OFERTA DE SUSCRIPCION 



Te ofrece la posibilidad de suscribirte con unas condiciones 
muy ventajosas para ti: 


1 

2 


Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te proporcionará 
lectura, programas, ayuda , entretenimiento, eíc. 

Consigue un práctico regalo: 



Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 


• Reglas y herramientas del Basic. 

• La técnica de los organigramas. 

• El fabuloso mundo de las rutinas 

• Variables y cadenas. 

• Funciones matemáticas usuales. 


Esta publicación , escrita con estilo 
ameno y práctico, te ayudará a sacar 
todo el partido posible a tu máquina. 


La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas, 
sugerencias, etc. 



Obtener premios importantes con tus programas, y temas 
de interés. 


EN DEFINITIVA, TODO SON VENTAJAS 

No dejes pasar esía oportunidad, suscríbete 
a “TODOSPECTRUM”, cumplimentando hoy mismo el cupón 
de respuesta adjunto. 


IM BRAVO MURILLO, 377 - 5.° A 

nPVWIrvlll Hll TELEFONO: 733 74 13/47/63/97 28020 MADRID 















y esperará recibir una compensa¬ 
ción. ¿Cómo puede recordamos 
una experiencia sucedida en una 
tienda de repuestos otra ocurrida 
en un restaurante? Debe existir 
una estructura de memoria que in¬ 
terviene en ambos procesos. 

Indudablemente, no todas las es- 
pectativas son iguales en estos dos 
casos, pero algunas sí lo son. Los 
bloques están enlazados, es decir, 
existen sub-bloques de expectati¬ 
vas. En la terminología de caracte¬ 
rística de la inteligencia artificai 
los bloques se llaman MOPs (siglas 
de memory organiza!ion packages) 
y los sub-bloques escenas. Las es¬ 
cenas son compartidas, ya que 
aparecen en muchos MOPs. 

En los programas y teorías sobre 
la inteligencia artificial se emplean 
más clases de memoria y estructu¬ 
ras de procesamiento de las que 
podríamos describir aquí. No obs¬ 
tante, los requisitos básicos para 
una organización útil de la memo¬ 
ria deberían haber quedado ya su¬ 
ficientemente claros. 

Tomaren un momento determi¬ 
nado la porción necesaria de cono¬ 
cimientos entre los almacenados 
en nuestra enorme y cambiante 
memoria, es crucial para la com¬ 
prensión del lenguaje. También lo 
es para mostrar el llamado sentido 
común. Aprender de las experien¬ 
cias y aplicar los conocimientos en 
las situaciones pertinentes es el 
paso más importante hacia la inte¬ 
ligencia. 


La inteligencia 
artificial 



Se ha abusado tanto del término 
«inteligencia artificial» que es con¬ 
veniente aclarar su significado. Los 
programas demostrativos de teo¬ 
rías sobre el conocimiento logran 
en ocasiones proezas impresionan¬ 
tes. Pero también lo consiguen 
otros programas que no pretenden 
ser modelos del conocimiento. La 
percepción pública de la inteligen¬ 
cia artificial se enfoca sobre todo 



en la expresión «artificial». Los or¬ 
denadores hacen trabajos que nun¬ 
ca imaginamos que podría hacer 
una máquina. Su potencia y utili¬ 
dad aumenta de día en día, pero 
esto no es inteligencia artificial. 

E! verdadero sentido de la inteli¬ 
gencia artificial se centra realmen¬ 
te en la «inteligencia», algo que to¬ 
davía es confuso y evasivo. Mu¬ 
chos programas «inteligentes» son 
prácticamente inútiles, mientras 
que otros muchos de gran utilidad 
y «listos» no son realmente inteli¬ 
gencia artificial. Si comprendemos 


esta diferencia nos ahorraremos 
numerosas confusiones. 

Los sistemas expertos son un 
buen ejemplo. No razonan de la 
forma en que ío haría un experto 
humano. Aunque son programas 
que realizan trabajos útiles e im¬ 
portantes, en modo alguno sirven 
de modelo para las teorías sobre la 
inteligencia. Un experto humano 
no se limita a seguir una serie de 
reglas: tiene la experiencia sufi¬ 
ciente para saber cuándo se enfren¬ 
ta a un caso excepcional. Las teo¬ 
rías sobre la conducta experta de¬ 
ben describir el procedimiento que 
permite a un experto saber cuándo 
algo no se ajusta a las regías y 
cómo obrar en esas circunstancia. 


Aprender de la experiencia 
es el paso más importante 
hacia la inteligencia 


■ 


Inteligencia artificial: i 

Tim Hartnell 

Ed. Anava Multimedia 

267 págs.. 1.300 pías. 

Quizá impresionados por lo os¬ 
tentoso del término, la mayoría de 
los usuarios de ordenadores do¬ 
mésticos piensan que la inteligen¬ 
cia Artificial queda lejos de sus po¬ 
sibilidades. Sin embargo. Tim 
Hartnell consigue en este libro de¬ 
mostrar todo lo contrarío. Y lo que 
resulta más atractivo es que lo lo¬ 
gra de un modo práctico, con pro¬ 
gramas «inteligentes» comentados 
detenidamente. 

Los listados utilizan un BASIC 
estandarizado que se puede ejecu- 





























La inteligencia artificial es una 
ciencia mucho más básica de lo 
que generalmente se piensa. Mu¬ 
chas de las mejores ideas sobre el 
tema requieren un enorme esfuer¬ 
zo para convertirse en aplicaciones 
útiles. Y en cierto modo, a partir 
de ese instante dejan de ser inteli¬ 
gencia artificial. 

¿Tiene aplicaciones la inteligen¬ 
cia artificial? Sin duda. Avanzando 
en la investigación sobre el pensa- 


EI resultado de esta 
experimentación será una 
nueva forma de entendernos 
a nosotros mismos. 


miento se puede ayudar a la gente 
a pensar mejor. Probablemente la 
aplicación más importante no sea 
ningún programa inteligente, sino 


la posibilidad de averiguar cómo 
piensan los seres humanos. 

La inteligencia artificial forma 
parte del gran esfuerzo por com¬ 
prender el pensamiento. Las inves¬ 
tigaciones deben centrarse en la in¬ 
teligencia, no en la máquina. 

Los programas son sóio experi¬ 
mentos. El resultado será una nue¬ 
va forma de entendernos a noso¬ 
tros mismos. Y esto es mucho más 
valioso que cualquier programa. 


conceptos y programas 


tar en la Mayoría de los microor¬ 
denadores: Coivm odore 64, BBC. 
Vic 20. Dragón 32. Orle. TI 99/4A. 
TRS 80. Apple II. IBM PC v mu¬ 
chos oíros. También, y digámoslo 
antes de que a alguien le dé un so¬ 
foco. en el Spectrum y Spectrum +. 
El apéndice 4 condene los listados 
con las modificaciones que necesi¬ 
ta el Spectrum. que se reducen casi 
exclusivamente al tratamiento de 
cadenas, 

E! libro se divide en cuatro sec¬ 
ciones dedicadas a distintas face¬ 
tas del comportamiento inteligen¬ 
te: ei pensamiento, ¡a investiga¬ 
ción. el habla y ¡a a vuela. El len¬ 
guaje utilizado es sencillo r ame¬ 


no, v la traducción, como va es ha¬ 
bitual en esta editorial, está bien 
realizada. Las primeras páginas 
de cada capítulo abordan por lo 
general aspectos teóricos, algunos 
de tanta importancia como los ár¬ 
boles de búsqueda, la comprensión 
del lenguaje natural r los sistemas 
expertos. Después se pasa al trata¬ 
miento práctico del tema, es decir, 
ios programas y comentarios. 

La calidad de los programas es 
más notable. Merece la pena des¬ 
tacar entre otros Tictac, juego de 
tres en rara que aprende a medida 
que juega: Bloquelandia. una sor¬ 
prendente versión del famoso 
Shrdiu que se comunica con noso¬ 


tros en castellano, y Doctor, ver¬ 
sión en BASIC del no menos fa¬ 
moso Eliza. programa con el cual 
e! ordenador se convierte en a/go 
parecido a un psquiatra de la es¬ 
cuela rogeriana. 

El libro termina con cuatro úti¬ 
les apéndices. El primero da una 
serie de consejos para mejorar las 
técnicas de programación. El se¬ 
gundo se dedica a la información 
bibliográfica. El tercero es un pe¬ 
queño vocabulario de términos in¬ 
formáticos v de inteligencia artifi¬ 
cia!. Y el cuarto v ultimo contiene 
las versiones para Spectrum de to¬ 
dos los programas que aparecen en 
el texto. 






















ya sabe programar se encuentra por 
primera vez con un Specfrum, descubre que su 
BASIC es bastante potente, pero echa en falta algunas 
instrucciones muy populares en otros ordenadores. Manuel Arana nos presenta un listado 
que, una vez tecleado, permitirá a los usuarios de Spectrum 48K disfrutar de siete nuevos 
comandos directamente sobre el teclado. Con ellos esperamos contribuir a solucionaros 

muchos problemas. 


n este primer artículo dedi¬ 
cado a este programa me 
centraré únicamente en da¬ 
ros un método para cargarlo 
y en contaros detallada¬ 
mente cómo funciona cada uno de 
estos comandos, cuál es su sintaxis, 
y qué posibilidades ofrece, dejando 
para números posteriores la apli¬ 
cación de cómo funciona interna¬ 
mente, a nivel de lenguaje máqui¬ 
na. Esto nos dará pie a comprender 
un poco mejor el funcionamiento 
interno del Spectrum. 

Antes de continuar, una adver¬ 
tencia. El programa tiene algunos 
problemas si lo queremos utilizar 
estando conectado el Interface I, 
principalmente que se destruye 
cuando se comete algún error o in¬ 
tentamos usar el interface. De to¬ 
das formas daremos unas pequeñas 
modificaciones que reducen estos 
problemas al mínimo, el programa 
únicamente se desconectará del 
resto del sistema cuando se pro¬ 
duzca algún error del interface y en 
este caso será necesario volverlo a 
lanzar con una instrucción USR. 


Cómo cargarlo 



El proceso para cargar el progra¬ 
ma es bastante sencillo, aunque un 
poco pesado. Lo primero que hay 
que hacer es teclear el programa 
del listado 1. Es «un poco» largo, 
pero no hay otra solución, El códi¬ 


go máquina se ha incluido en for¬ 
ma de líneas DATA y se realizan 
controles de suma en cada línea 
para detectar los errores. Una vez 
tecleado todo el programa haz 
RUN. En la pantalla verás qué lí¬ 
nea de datos se está cargando en 
ese momento, y te avisará en el 
caso de que exista algún error indi¬ 
cándote en qué línea está. Corríge¬ 
lo y lanza otra vez el programa. 
Cuando ya no quede ningún error 
se detendrá después de «pokear» la 
última línea en el STOP de la línea 
110. Ahora todo el programa está 
ya en la memoria y puedes hacer 
NEW. (No te preocupes, la situa¬ 
ción está bajo control, pero si no te 
fias o piensas que se puede produ¬ 
cir algún accidente guarda primero 
este programa en una cinta). Por 
último teclea el listado 2, que es un 



pequeño cargador, haz GOTO 100 
y ya puedes grabar la copia defini¬ 
tiva del programa. Si piensas utili¬ 
zar el interface 1 utiliza el listado 3 
en lugar del 2, y cuando se produz¬ 
ca un error del interface podrás 
volver a conectar con el programa 
mediante la instrucción RANDO- 
MIZE USR 61260. 


Mode 

Cuando cargues el programa de 
la cinta te encontrarás con la sor¬ 
presa de que todo lo que tecleas 
aparece con unas letras mucho 
más estrechas de lo normal, a ra¬ 
zón de 64 caracteres por línea. Este 
nuevo modo de presentación se 
puede controlar con la nueva ins¬ 
trucción MODE. La sintaxis de 
este comando es muy simple: 
MODE 0 coloca el Spectrum en el 
modo normal de presentación y 
MODE 1 selecciona el modo de 64 
caracteres. 

Trabajando en el modo de 64 
columnas se pueden utilizar todas 
las posibilidades de la instrucción 
PRINT. Podemos hacer por ejem¬ 
plo: PRINT AT 5,40;“*”;TAB 
50;“*”. La única diferencia funda¬ 
mental con el modo normal de 
presentación se refiere al uso de 
comas como separadores. En 
MODE 1 la pantalla está dividida 
en cuatro campos de 16 caracteres, 
y la utilización de la coma lo que 
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hace es colocar el cursor al princi¬ 
pio del siguiente campo. De esta 
forma si escribimos una serie de 
datos separados por comas apare¬ 
cen en la pantalla ordenados en 
cuatro columnas. También se pue¬ 
den usar sin problemas los caracte¬ 
res de control 8 y 9, que desplazan 
el cursor una posición hacia la iz¬ 
quierda y derecha respectivamen¬ 
te. 

AUTO 

Este comando se utiliza cuando 
se está tecleando un programa y su 
función es la de ir colocando ios 
números de línea. Su sintaxis es: 
AUTO x,y donde x es el número 
de línea por el que debe empezar a 
numerar e y es el incremento entre 
dos números de línea consecuti¬ 
vos. Por ejemplo si hacemos 


El Spectrum provisto de 
«Arana Soft» dispone de dos 
modos de presentación: 32 ó 
64 caracteres. 


AUTO 100,10 inmediatamente 
aparecerá en la parte inferior de la 
pantalla el número 100 seguido del 
cursor preparado para que empe¬ 
cemos a teclear la línea. Cuando 
pulsemos ENTER la línea será in¬ 
sertada en el programa y aparecerá 
el número 110 para que tecleemos 
la línea siguiente. Cuando termi¬ 
nemos, la forma de abandonar el 
modo AUTO es borrar el número 
de linea y pulsar ENTER. 


RENUM 

Después de escribir y corregir un 
programa BASIC, cuando por fin 
funciona, normalmente nos en¬ 
contramos con que en los números 
de línea reina la anarquía como re¬ 
sultado de haber borrado e inserta¬ 
do gran número de líneas. El co¬ 
mando RENUM hará que vuelva 
el orden. RENUM n,m renumera 
todo el programa comenzando por 
la línea n y con incrementos de m 
en m. También se encarga de cam¬ 
biar los saltos que hubiera en el 
programa para que éste siga fun¬ 
cionando. Veamos un ejemplo. El 
siguiente programa calcula el fac¬ 
torial de un número de manera re¬ 
cursiva (procedimiento no muy re¬ 
comendable en BASIC). 


15 INPUT a:GO SUB 1000: 
PRINT a,f: STOP 
1000 IF a<=! THEN LET 
f=l :RETURN 
1005 LET a=a-l 
1007 GO SUB 1000 
1020 LET a=a+l :LET f=Pa:RE- 
TURN 

9000 SAVE “fac’TJNE 15 

Si queremos renumerarlo basta¬ 
rá con hacer RENUM 10,10 y 

10 INPUT a:GO SUB 
20:PRINT a,f:STOP 
20 IF a <=1 THEN LET 
f=l :RETURN 
30 LET a=a-l 
40 GO SUB 20 

50 LET a=a+l:LET fcPa:RE- 
TURN 

60 SAVE “fac’TINE 10 

Quizá los amantes de la progra¬ 
mación estructurada prefieran re¬ 
numerar únicamente la subrutina. 
Para ello basta con hacer RENUM 
1000,10,1000,2000 donde los dos 
primeros parámetros tienen el 
mismo significado que antes, el 
tercero indica la primera línea que 
debe ser renumerada, y el último 
la última línea que debe renume¬ 
rarse. El programa quedaría 

15 INPUT a:GO SUB 
l000:PR!NTa,f:STOP 
1000 IF a<=l THEN LET 
fcLRETURN 
1010 LET a=a-l 
1020 GO SUB 1000 
1030 LET a=a+l:LET f=Pa:RE- 
TURN 

9000 SAVE “fac”LINE 15 





























Los comandos del BASIC que 
pueden ser modificados por una 
instrucción RENUM son todos los 
que pueden o deben llevar como 
parámetro un número de línea, 
esto es: GO TO. GO SUB. SAVE, 
LIST. LLIST, RESTORE, RUN y 
ON. 


ELSE 

La instrucción ELSE viene a 
completar la conocida construc¬ 
ción IF condición THEN coman¬ 
dos, que ahora puede tomar la for¬ 
ma ÍF condición THEN comandos 
ELSE otros comandos, que podría¬ 
mos traducir como: si se cumple 
ésto haz ésto, si no haz ésto otro. 
De esta forma ELSE marca el pun¬ 
to donde debe continuar la ejecu¬ 
ción en el caso de que no se cum¬ 
pla la condición. Así podemos es¬ 
cribir la subrutina del ejemplo an¬ 
terior en una sola línea: 

1000 IF a<=I THEN LET 
f=l:RETURN ELSE LET a=a- 
LGOSUB 1000:LET a=a+l:LET 
f=Pa:RETURN 

D Cuando en una misma línea 
existan varias sentencias IF y va¬ 
rios ELSE puede surgir la duda de 


cuál de los IF se refiere a cada 
ELSE. La respuesta es que cada 
ELSE se refiere al IF más cercano a 
no ser que existan en medio otras 
instrucciones ELSE, De esta ma¬ 
nera las construcciones IF-THEN- 


ELSE quedan anidadas unas den¬ 
tro de otras, 

El límite teórico de este tipo de 
estructuras anidadas es de 255, 
pero este límite es inalcanzable 
por la limitación de 127 sentencias 
en cada línea. , 

Por la forma en que está escrita 
la instrucción ELSE es posible in¬ 
troducirla en una línea en la que 
no aparezca el IF, pero en este caso 
no tiene ninguna util idad ya que se 
comporta como si fuera una sen¬ 
tencia REM. 


ON 

Se trata de una nueva forma de 
saltos condicionados. La forma de 
utilizarlo es: 

ON (expresión) GO TO lineal.lí- 
nea2,,.. 

El salto se producirá dependien¬ 
do del valor de la expresión, si vale 
uno saltará a la línea especificada 
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por el primer parámetro detrás del 
GOTO, si vale 2 al segundo y así 
sucesivamente. En el caso de que 
el valor de la expresión sea mayor 
que la cantidad de líneas indicadas 
después del GOTO el programa 
continuará por la siguiente línea. 
Este tipo de saltos también puede 
ser realizado con instrucciones del 
tipo GOTO calculado, pero este 
sistema presenta la ventaja de que 
es más comprensible y puede ser 
renumerado sin problemas. La ins¬ 
trucción ON se puede utilizar tan¬ 
to con GOTO como con GOSUB. 

Cuando tengas que teclear el 
GOTO o el GOSUB de una linea 
ON te encontrarás con el pequeño 
problema de que el cursor no está 
en K. Para solucionar esto las dos 
palabras han sido reasignadas a las 
mismas teclas pero en modo exten¬ 
dido y pulsando a la vez CAPS 
SHIFT. Sin embargo los que ten¬ 
gan el Iníerface 1 no tendrán más 
remedio que hacer un poco de 
ejercicio con los dedos y poner dos 
puntos, GOTO o GOSUB y retro¬ 
ceder para borrar los dos puntos. 


SWAP 

Este comando sirve para realizar 
una transferencia cruzada sin ne¬ 
cesidad de utilizar una variable in¬ 
termedia. Para utilizarlo basta con 


hacer SWAP a,b y el resultado es 
el equivalente a hacer LET c=a- 
:LET a=b:LET b=c pero con la 
ventaja de que no utiliza la varia¬ 
ble intermedia c y que es algo más 
rápido. Se puede utilizar tanto con 
variables numéricas como con al- 
fanuméricas. 

ON ERR 

Esta instrucción le da al Spec- 
trum una capacidad de tratamien¬ 
to de errores de la que carecía to- 


Con el comando ON ERR se 
puede evitar que el programa 
pare cada vez que encuentre 
un error. 


talmente. La forma de utilizarlo es 
muy sencilla, basta con poner en el 
programa el comando ON ERR 
seguido de los códigos de error a 


MIRA tRAHO, ÜK1A FuMCIOíJ 
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que nos queramos referir separa¬ 
dos por comas. Esto marcará el 
punto del programa donde debe 
continuar la ejecución en el caso 
de que se produzca alguno de los 
errores indicados. No hay limita¬ 
ción en cuanto al número de erro¬ 
res en una instrucción ON ERR, ni 
en el número de veces que aparez¬ 
ca la sentencia ON ERR en el pro¬ 
grama. El código del error produ¬ 
cido queda almacenado en una va¬ 
riable llamada “err”. La lista de los 
códigos de error la puedes encon¬ 
trar en el libro de instrucciones del 
Spectrum en la página 189 y si¬ 
guientes. La instrucción CONTI¬ 
NUE puede ser utilizada para que 
la ejecución vuelva al punto en 
que se produjo el error, de esta for¬ 
ma podrás hacer: ON ERR 1 
CONTINUE, con lo que consegui¬ 
rás que el programa no se pare por¬ 
que alguien intente hacer BREAK. 

Hay que hacer una advertencia 
en cuanto al uso simultáneo del 
error d (se produce al contestar no 
a la pregunta scroll?) y el error 1 
(BREAK). Si ponemos ON ERR 
d, 1 CONTINUE y cuando se pro¬ 
duce el mensaje scroll? responde¬ 
mos pulsando simultáneamente 
CAPS SHIFT y SPACE se produ- 


pro gramas. 



Para terminar incluyo un peque¬ 
ño programa que muestra cómo se 
puede utilizar la instrucción ON 
ERR para solucionar ios proble- 


ción en ese punto (error A) o por 
intentar dividir por cero (error 6). 
En cualquiera de estos dos casos 
ignoramos el punto. 


TABLA 1 


La instrucción ELSE mejora 
la estructuración de nuestros 


Sintaxis 

Acceso teclado 

Con Interface 1 

MODE n 

CS + Y 

CS-t-6 

SWAP vl,v2 

cs + u 

CS+ 5 

ON n GOTO 11,12,.., 

CS + T 

CS + 4 

RENUM 1 l,n i, 12,13¿ 

CS + R 

CS + 3 

AUTO 11 ,n 

CS + E 

CS + 2 

ON ERR el,e2,... 

CS + W 

CS + 1 

ELSE 

CS + Q 

CS + 0 


n - expresión numérica 

11,12,13 - número de línea o expresión numérica 
vl,v2 - nombres de variables numéricas o alfanuméricas 
el,e2 - códigos de error (una cifra o una letra) 


eirá un error d que será tratado 
como tal, pero en el nomento en 
que comienza a ejecutarse la ins¬ 
trucción CONTINUE se produce 
un error 1 (BREAK) y ese será el 
punto donde saltará el programa 
después de CONTINUE, quedan¬ 
do la máquina «colgada» en este 
bucle. 


mas que se presentan al represen¬ 
tar gráficamente una función. Se 
produce el error B cuando un pun¬ 
to queda fuera de los límites en 
cuyo caso optamos por ponerlo en 
el borde de la pantalla. También se 
puede producir un error matemá¬ 
tico por no estar definida la fun- 


Para los que todavía no lo hayan 
descubierto la tabla 1 es un resu¬ 
men de la sintaxis de cada coman¬ 
do e indica la forma de acceso a las 
palabras clave. Recuerda que todas 
ellas se consiguen en modo exten¬ 
dido. 

Manuel Arana 
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LISTADO I 


10 CLEAF ¿0138: l.ET r>=6015?¡ R 
E5T0RE 

20 PRIMT AI 5,5; "Cargando line 
a M ; 

30 FOF: i = 1000 Tü 2600 5TEF 10 
40 PRIMT AT 5,20;i 
SO READ *$,*5 l.ET 5=0 
60 FOR j«l TO LEN &%-l STÉP 2 
70 LÉT d-16* ÍCODE ai(j)-48-39* 

(5Í f j > ,1 9 IP > J+CODE ai Íj + U-48-39* 

<**< j+1) 

80 POKE n p d ¡ LEI n=n+ls LET S- 
&+d: NEXT j 

90 IF s< > a. THEN PRIMT AT 5,5; 
"Error en la line* "; i t BEEF' .5, 
-lOí STOP 
100 NEXT i 

110 BEEF U-lOt STOP 
1000 DATA " 01 ebf 5e52é>785c23227S5 
c 7 c bS20034 d 744Oc 5 d 5 c d l 9^b c 3 4 d 00c 
dBeO2í7.02100" f 3675 
1010 DATA " 5c cb=**200773353b 70073 
64 f ' J d?1 045cbd20eecd le030071 OOSch 
ee a 1 Ú03eb 21 11 ,28°"■ 

1-720 DATA M 04ucbeca1003cb7e2004e 
bcb7ec. B54 ^7233605233a095c:7 J1f 2' lf 4 d 4 
e07+d5óO 1 e5 11 ,.3199 

1030 DATA lr cdó^eb c 3060 37b 4 -eTad- a a 
4éLiOd4&44O72SOoc644c92l&b0K>4?3O 
d?105024578" s 3794 
1040 DATA "4e 1 =380321 49e?t-4 1 r:34*0 
37edcda5c l a7beeedbf ae^abddded* 
i ISlb^CÜ 1d N , 4 185 ' 

1050 DAT A " :! h 1 =d ? IsdT’f e3-Od BT-J 4a* 
d03c73903215402cb6ec*4a03-Fe3Bd23 
203b 607720>J “ f 7-6 T= 

1 060 R A T A " 5c 3 e 1 O O> 4 i : S 3d c ° 001 • r " í >■') 4i 
O0000000( i0030 7 1: 30 2 00 f ; 70 O■' >0050 5 O O 
00000-000O0 11 f 9S5 

1 o 7 O DATA "5< ■"•"• 5 O 5 O 7 f >50< > (>002O 7 O 4 
TPOl O ">020 O r * (40401 02040101 O O O 2 O 5 02 
060bOí 00000 ", 1=52 

1 c> A o DATA "20400O00 O 00 O000O304O 4 
O4040 20 00 t ') ("•■ 41 ':■ 3 ; ''' 7 O 7 O 70 4000000 O 5 O 7 
O070500000" , 1 ('-08 
1 09( > CAVA 730 3O 7 O202O OOO O O O O 00 

00 r t 3 O 2 O 4 O O O < > 00 O O O 7 O O O O 00 O 000O 000 
00060600000", &^2 

1100 DATA 11 1 01020204040Ó00070S05 
05 05 O 7 O OO 00206O 7 O202070000020501 
0304’ _, 700ÓOO" - 1 440 

1110 DATA "6 O t O 6-0 1 O 1 O 6000O 01 O 7 O 5 
(■¡50701 00000^04060 IOS 060000030406 
05050700000" , (488 


i 1 70 

DATA 

" 7 0 1 0 2020404 000OC ^ ''i 50 2 

OSOS< 

^70000 

020 SOSO 

1 1 06-0000000007 

oooo< 

il^OOOíj 

0 " p1232 


11 Tr“i 

DATA 

»nn,r>no 000 

7012:040^0001 07 

04r.?í 

■il OOOO 

Orit’J.'rO^OOO 

'7000000000402 

0107- 

; ‘‘.40 

n", -*.2 


i t a 

DAT A 

'' 2 050103 0 <1' o300 r > O 0 6 O 4 0 d 

OavE- 

r ’jTOOOí!' 

'020505070 

'SOSOO0OO60SO6 

■>505.: 

H-45 r ‘‘0000 ",.2128 


1 1 50 

DAT A 

'‘TV/SO-ÍO-K 

=50200 0006 ó 505 


O5o5O 6 00 OO O7 O4060404070000070407 
04040400000“,1856 
] i 6O DATA "20S04O7O502OO O 0050507 
05050500000 7020 202020700000101 Q 1 
05050200000",1504 

1170 DATA "505060605050000040404 
O 4 O 4 O 700O003O ’ T O 7 O ^ O 50 3 O 00 O 07 O 505 
05050500000" ,203 7 
11P0 DATA "2 050505O5020000060505 
O604O40000070505O5 O7O7 ü]O007O505 


06060500000 m 2000 

11=0 DATA "7 O402 O í Ol O 60000O7 O2 O2 

O7o7 O3O O00O 50305O 505070000050505 

05050200000" ¡,1488 

1200 DATA 11 507O7070702O000050502 

O 7 05030000050505O702O20000070102 

02040700000",1648 

1210 DATA "7O4040404O70000000408 

0203010000070101 O iOT O7000O02O702 

02020200000" s I2=6 

1330 DATA "OOOOOOOOOOO0R00020504 

O4 040+000000060 1 0705070000040406 

05050600000"„1056 

1230 DATA "003040404030000010103 

050503000O O00705 O604O 30 O00030406 

04040400000"j12=6 

1240 DATA "003050503010600040406 

O 5 O 5 O 50 O OO O200O 6 O 2 O2070OOO O l OO O 1 

01010502000"p1712 

1250 DATA "40506060505 OOOO040404 

O4 O4 O 3OOO O OOO50 7 O 7 O7 O 50 OOOOOO 60S 

05050500000°,1776 

1260 DATA 11 0 O 2 05 O 50 5 O 2 O O O O O O 06 05 

05060404000003050503010100000304 

04040400000 lK t 1376 

1270 DATA "003040201060000020702 

020201OOO0000505O505070OOOO005O5 

05050200000", 1296. 

1280 DATA "005070707020000000505 
0205O50OOOOO0505O5030106OOO00701 
02040700000",1536 

1290 DATA "30204O202O30000020202 

0202020000060201020206 O O OOO50a 00 

000000O00óO",1088 

1300 DATA "80b O a O bO8 O 906b f 09 O909 

0909O904 03030303 OOO O O000Oc Oc OcOc 

00000000040",3352 

1310 DATA " -f Of 09 0000O OOO O0000O 00 

o30303O303030303030303030cOcOcOc 

03 O 303030f O",2496 

1320 DATA 11 -tOf09 0303030300000000 

0cOcOcvcO3O3O3 O3ÓcOcOcOcOcOcOcOc 

OcOrOcOc 04 O % 4416 

1330 DATA ” f 04 0-f OcOcOcOc OCOO 00 O O 
O 4 O f O 4 Oí 07,0303 O 3 O 4 O i 04 O 4 Oc O c Oc O r 
Q+040íq4X)4Q'' p5568 

17.40 DATA "4 040404040404 03^eaeci4 
7ed5e@ef7b3d5c 4 1 c335f c a 4 33*89 0+c(3 
63 í 02cdF0f1"p 5626 
1350 DATA "cdbO'163*48*0*728193&^ 
ícdOlI67af140sd5b*3f019cfc.7420032 
24 lf 0444dcd 11 > 4309 

1360 DATA " Ib Ia3e00ccl01l6cd734 3c 
d : B94 44 deb007e2C 1 74 dcb.706623777*5 
95^ c ría ti 1 4 tí" , 3754 

13O DATA =i 7 óc'iO t+l>idd2a595c225d5 
c «r d 754 4 78b 1 c 24 9f Od4 +Í>0cf289d4dcb3 
046c4b741cd" s 4628 

1380 DATA 1 6e0dcdd*4I3el?fd96444 
d7T52-f dcbO 14 &4d 36004 4 4 d36O*01 &S7 
a8a5c32b05c" F 4704 

1390 DATA "e10152453a3*5c3c28264 
+ c52*535c Ií?l9c_d5l4 1 ebe3eb381óc5r 
d¿74 4c cf=04 9" „ 4300 
1400 DATA ,l c 1ca.*c40eb«of?|-jcd684 1 e 
be3eb70i?ac 1 7 64 drbO 1 *@4dcb304E*c 4cl 
c0efd7e003c",5426 

1410 DATA *' í52100004 d74374cf7426? 
20b 5 c. 210100771 65c c db 0 164 d c b 3^a^c. 
d6*0dcr.(d*4 1" , 3508 
14 30 DATA "4 de b02ee4I A "M e0al802c 
607cdw4 i S3e20*J77ai 1 = 1 1 TcclOaOtrat I 
1 7.6 1 5c: clOaOc: " ? 377 1 
1430 PATA "t*d4b455c:cd 1 b 1 *3i?3ad74 
d4e*0d0600c. d 1 b 1 *cd971 04 d “'@00 3c c 48 
6í 04ct36(>a4T " } 3627 

1440 RATA "4dcbO]l =ec-381ef + e-09280 


44 * 1.5200 V i- d 340dC 103001 i 705c 2.1 445 

r -fríe bü# ' fe7n " , 1 63 

1450 RATA "010=(*db 8r 9 7 e 1001 OOO O c: 

31 + 4 O 7 a '7 1 1 W c 3 d 5c: d h 01 6 ? 1 * (f 4 O- 2 7 5 cj 5 

ccdl+Icdl 7b ", 35T4 

14óO PA Í A "4*?í 5700b*4db4^6144^1 

4 204 73elScdB640ccI282flrd+ + 2A-1 275 

d5cd 1 3e0i , -<1 107 

14^0 RATA ■72445c?1e 3e4e5id36004 

4,- 774-f54552522aCrOO00*00455252©Oe 

ti 43495c 2a5d% 3125 

1480 DATA M 5ceb2la*40e52*6l5c37e 

d57e56069r efée 192006c dbS 1 =cde81 9¿ 

1793db0¿8?8", 7013 

1490 DATA "c 5030303032bPd5t.535cd 

5td551ó^l 22535t t. tcSl 37*6 1 5c 2b2be 

dÍ7>B7a4 9ScÉít>-', 3307 

1500 DATA "c1702b7 í2b732b72f í c 35 

Swf7ef*3*2018237eeóc037c046234ee 

d47^75c334e "í 3639 

1510 DATA "?746e509444tíei 1600c5c 

d72f1 c 1d0ó06918dtí22SdScOe0015c8c 

d67 4 4bb2004" 5 3369 

1520 PATA p 7*7c9277 efC db6t8225d5c4 
e22700 t 0d4e3*2G 1 aí ect?231 64 & 1 970 1 
6c b 4 I 701.7c d " , 3246 

1530 DATA "674 4d5cd90í =d13*5d5c2 

b 18r.6cb4 1 ?&r: 74 @Od 20r d 1 377c: 931 OOO 

0227d5c4dcb" , 3887 

1540 DATA " 308ócdd*4 1 3 í*4í?c dOJ 16c 

d4cl0d0616cd440e2a51 Se 11 cdíccTcf O 

d3e-f dr dOl 1 6 11 f 3649 

1550 DATA "2a5lScl 1.cd4c*77323722 

7ll094 3c3a70d<?d73345c:4d3602lOcdh 

74Ic3a01?4d"p 3891 

■ 1560 DATA "cbOlcétíSetifdct'3096213 

b5ccb964deb376e2802cbd62*545c*7* 

d5220053o34",3990 

1570 DATA "cde4f2cdb642eb7ecdb61 

8234e0d2806í?bcd3742l8^0dlc9cda82 

c3-F d26c 1 °4 e 11 p 4875 

1590 DATA "2Ó28f94e2c28454elac33 

el 9*4 7-2104 dcd4dOd4 deb029ef dcb02* 

e2*8*5ce52* iJ , 4046 

1590 DATA "3d5ce52i9442e5ed733d5 

c2a825ce-537cd951 1 ebedí e4 1 ebcdh64 

22*8*5ce3eb" f 5002 

1600 DATA "cd4dOd3*Bb5c923SL1200 

Ó7b4d965030093e20d5cdcd4cdiiee93 

e20d7c37cl 1 11 ^ 3584 

1610 DATA ° L 6004 d5e4 e2i 901 ac d b50 

34d36004fed5bQ*5ctcc37elI2*5b5ca 

7ed52c03*41 H ,3727 

1620 DATA "5ccb072804c6431821213 

b5ccb9elb1 al 34 e2c28024e193e4b280 

4cb56280bcb 11 r 2628 

1630 PATA "de3c4dcb305e28023e43d 

5cde442dlc9d921=ÍSc56d53604cdcdf 

cel4d7457d9° f 4764 

1640 DATA "c9cdb74lcd6eOdc3dafl4 
dcb025ec44b42*74dcb016«cS3*085c4 
debü1*e454d",5098 

1650 DATA "cb026ec4O3434l4elS304 

7 4 e103 O304 «0630O a 47 e6014478l4c6l 

21814200=21",2956 

1660 DATA "6a5c3@0a*@77lS0e4tí0ed 

8d60d2Í415cb©772OO236OO4debO2deb 

4c94d7ld3ll |, p3563 

1670 DATA "634318063*0d5c1109f32 
*44 5c 232373237237c92a3d5ce521464 
4&5ed733d5c", 313 2 

1680 DATA "celda 154516004d5e4421c 
B00cdb50341217443e54e0*2B5efe0b2 
83d4e0828i4",3888 
1690 DATA "4e1828 i 64 ©0928214 eOcc 
24c04cd044 4ebc3e519cd0444c3l1103 
e3*cd81043e" ? 3576 







1700 DATA "OBc d810*3*19c3810+2*5 

b5c7e* eQdc8545d23ed32+4c3liiOfde 

b37feec02s49%3467 

1710 DATA lf 5ccd6el9ebcd9516214*5 

ecdlcl9cdf0*13©00c30l16*deb37óec 

2011021495c",3496 

1720 DATA "cd0*19lSe92*5b5c37cd9 

51 led52l Cí 23c Id8c5444d626b23l*cd3 

2* 4*6+8+©10% 3796 

1730 DATA "2009231 a d ó 17ce0020012 

3*7ed4209»b3Se3e9fe3aeÜ7*+©oe200 

a237e* e1820" ,3216 

1740 DATA "032318012b 1 ac9+dcb306 

6e*2610* d3600+ f 1600* d Se* ©21901 ac 

db503c377+3" , 3529 

1750 DATA "2a5d5c7ecd6c+4d0eri740 

0l8f 7* e203*c8*@lBe37*002a595c2b2 

25d5ccd67f 4% 3896 

1760 DATA "c3031ad*b9e28a1c1Bdef 

dcb0ibecd75*4a*3247Se3d323a5clBO 

3cd67*4cdbf% 4075 

1770 DATA "16*d340d+a8a1ccd5+*40 

£00fe0dca7b*5*e3a2S©62l3*f5e54*c 

dó7? 479* ece",4507 

1780 DATA Ir 3011 d6183804* «083804c 

38a 1c7©21* 1*5100*21 ce* 54+cddc163 

8* 17921481*" ,3287 

1790 DATA 11 d 6c 64+ O94©0918032*7 45 

e7e2322745c01e7*4c54ffe20tí2B2f4+ 

e03200dd*cd" , 3627 

1800 DATA p, delcb*cleeb6*5ebc3l61 

ce728+ 4+©05200305 iB©@*©022008c1c 

d56 lccdb6f 5 ,J , 4197 

1810 DATA M c9*e07c263lb*dcbOi7©f 

dcbÚ2S6c44dOd* I3*745cdóI3cd*c2lc 

db6f 5c3atíle", 4501 

1B20 DATA "cd54l*d27blb*deb0*7©2 

0712a425c cb7 c281421 + w* + 22455c2a6 

15c2bed5b59 rp , 3432 

1830 DATA "5c1b3*445c1833cd6e193 

a445c2Sl9a72043477*e6c0782BOfe+* 

+ clcd3025e8%3240 

1840 DATA "2a355c3©c0a6cÚa*f©Ole 

©0056235eed53455c23Se2356eb19232 

2555ceb225d Ir , 3281 

1850 DATA "5c571©OOfd360*f *15* d7 

2Dde*9af414cd72+Í2B08c*16cd3025c 

Üclcldf*e0d%3997 

1860 DATA 11 28ba+ e3ac*?a+ 479*728* 

9c*0h+7OB*b09fdOaeaübf*OceóótíebO 

ef 50* ee 10e9" , 4457 

1870 DATA "1If012©313e414fc15*01 

del17d31Bcel90G61ód575s6062ó46al 

21416181*16",, 2930 

1880 DATA "2027292b2d2f313336383 

*3d0365*60000*30370f6037*+306cb0 

58d*60035+c",2808 

1890 DATA 11 043d06cc0605* 2f6050b f 

7051d*7054d*80567*805ce*80596f80 

905*8*80507",3308 

1900 DATA "*70563*80905bdf805e0* 

80B0040+90803B6* *05bc+ 9053a**05c 

4* 9060062*9% 3803 

1910 DATA "0581*900cb* Ccd67IsOlÜ 

000cd 451e1B03cd991*78b12004#d4bb 

25ccSedSb4b% 341 i. 

1920 DATA M 5c2*595c2bcdBSl9cdOOf 

3c 3c 61*c1c d 3025280*■ * 0238vbed *9 3 

4daa3* 6cd5f % 4170 

1930 DATA "*4c39d*4*d460dOe01cd5 

* * 4 * e1820030d2811 * ef *2001Oc 04c de 

C*6cd740030% 3695 

1940 DATA "e8c37b*5*d700dcd67*4c: 

39d* 47ecd*3*6cdb6i0225d3c**3*cB+ 

©0bcB+©0d37%5246 

1950 DATA "cB2318©9+©22c0237*f*2 

2c 8* eOd 20* 7*137c9d* * *cd200**7cd8 


2lccdb6*5c3 % 4809 

1960 DATA "I61dcdb**5c3131d3e031 

8023©02cd3025c40116cd4dOdcdd*i+c 

db6*5c9cd30 ,p , 3430 

1970 DATA 1 f 2528083eO1c d 0116c tí O 3* 

3* d360201rd55t 7cdbó* 5ed4b885e3*6 

b5c b838030©% 3360 

19B0 DATA "2147ed43885c3e1990328 

c5c* deb0286cdd9Gdc303* 3c d4e 2028* 

b*&28200ee7% 3794 

1990 DATA Jl cdd* 1 fd*fe29c2Balc@7c 

346+8+ee*201 le7cd 1 * 1c* dcb37*e* de 

bO176c28*1c% 4781 - 

2000 DATA "10OdcdSd2cd243*9edlf1 

c*dcb37becd3025c *46* Sedb* 1621715 

cchb6cbe*01 ", 4210 

2010 DATA ,, 0l00cb7e200b*d7e01eó4 

020020©03b677f7360d790*0*30053e2 

2l22b77223b%2310 

2020 DATA l| 5c*dcb377e202c2a5d5ee 

52*3d5ce521ce*7e5*dcb30662B04ed7 

33d5c2a615c%3786 

2030 DATA ,p cda71 I*d3600**cd73*3* 

de b 01b ec d b9211803cd73f3* d 362200c 

dd621200ac d'% 4214 

2040 DATA p, 4b*2ed4b82Scedd90d217 

15ccbaecb7ecbb*20lcele1223d5c©12 

25+5c*dcb0i", 4223 

2050 DATA lf *ecdb92l 2a5*5c + d36260 

0223tí5c18172a63Sced5b615c37ed524 

44dcdb22acd%34l6 

2060 DATA lp f *2a 1803cd*c 1 f cd4*20c 

*55* 7c 9cd b 228c 28*leed30252008c bb 

Icd9629cdb6% 4138 

2070 DATA "+5c3l52c3e031B023e02* 

d 360200cd3025c 40116d f c d 70203B14d 

*f©3b2BC4*e%29óO 

2080 DATA “2c2006e7cdB21clBOBede 

61cl803cddelccdb6*5c325l8d*cd302 

5c237leed*b",3789 

2090 DATA "24*e2cc4b6*5e7l8+5d** 

©2c2S06cdb6*5c37724e7cd82lccdb6f 

5c39423d* + e %50S7 

2100 DATA "2ce28alce7cdS21ccdb6f 

5c32tí23e7cdl*lccd3025c2*51dd*f©2 

c28* lcdb6*5 lp , 4592 

2110 DATA ,l c9d*cd3025c265!**dcb0 

1 * 6cd8d2c301óe?* ©242005* de bOlbó© 

7*e2B203ee7",4248 

2120 DATA pp *e29232ÚcdSd2cd2Balce 

be7fe242002ebe7ebOl0600cd5Sl6232 

3360e*é2c20%34H 

2130 DATA "O3e71SeO*e2920l3e7*e7 

d200ee73a3b5c + 5cd*b24* t*daeO1e64 

Oc28a1c cdb 6" p 4307 

2140 DATA "*5cd99 3 ec5cd991 pe 1505 

9eb *7©d5222+1 * Oed 53*3* 021* ©* 0360 

Ied7t»3d5c*l%498i 

2150 DATA "c35+e*cdd52d3B04*e023 

B02cf0*874*0600217d*9095e2356ed5 

30c*dc9*409",3473 

2160 DATA "35*dcd3025c27a*5cd90* 

9cd5**4c39d*4cd5**4cd882c30d3*50 

8*1f e3&3804",4949 

2170 DATA "e6d* d607d630bb2001OBc 

d67* 4* @2c200*cd67* 4cd882c38e3c*0 

bOBc9cd3025 M »3993 

2180 DATA "c27a*518c6cd30252019e 

di*1c0e2ccdB2*43a3b5c* 5cd1 * 1c*1 * 

d560l*ae640" f 3794 

2190 DATA "C8c*0b2a5d5ce5cd*b24* 

dcb0l76cc0a*acd67*4cd*b24el225d5 

ccdl*lccd**%46!7 

2200 DATA "2*cdó7*4edlf1ccd*f2ac 

9cd* 12b78ble ab22ae1d5* 7d1c52*6l5 

cebedbOcd67 J %5047 

2210 DATA M *4cd*b24clelc5225d5cc 


di*Iccd**2*ed5b615ccIcdb22ac300* 

*ctí5**4cdS2 HI , 4795 

2220 DATA " Ic47e6f e*eec20990e<!»0c 

5c d302537c 4d52d 3O023e-f **5ctí67*4c 

dSZlcflcd30",42B9 

2230 DATA "2528083d28lcf5e*0238* 

147cd5**4*e2c7B28e2*Icd3025c8d0f 

eedeaed lee3% 4390 

2240 DATA " 671ec10dc518e4cd 30252 

OO8d+*e2ccOe7c37alcd**e2c20O92l 1 

027e5010000",3295 

2250 DATA »1B0be7cd7*iccd991ec5c 

d 99 1 e ©1 a 7ed4209380e222d* c ed 432* f 

ccd991e78bi",39Q7 

2260 DATA J *2002e*0aed4333fecd99i 

eed433l* ced4b2d*ccd02* cdde5ccb81 

956235ee1*7",4389 

2270 DATA rp ed5230de2*5d5c225*5cc 

d2c* b3e* ecdO1162a5*5c225d5cfd362 

6002*2d*c23",3248 

2200 DATA "cdóel97e*53e80772*2** 

ccd6©19ed5b3l*cd57B*e0Ó281Id 1722 

3732b©52*33",3946 

2290 DATA p, *e 19e3cdb819*blB**d 1* 

177c92*535c7*»6c0c023234e2346»30 

9224d5c*122" p 409l 

2300 DATA "2b*c225d5c1SOeel1602c 

d72*130062*4d5c231Bdbcd67*4e521 h 

a*b4*cddc!6% 3601 

2310 DATA "30e5l6005el9cd2cl6lBd 

c*Bl0lc25ec3*«d3ael36* 034* “ !r 32e53 

00001c a**2a" , 3494 

2320 DATA tp 5d5c237eedb618*eOdcBa 

06920* 4225d5c181701ec*ecd7e*be7e 

d82lc*5e*02",4264 

2330 DATA "38*lfe2cc0cd*9*b18©*2 

a5d5c237e* e0e2S0ócd1b2dd81S*4e5c 

db618*©3a2B ,< , 4130 

2340 DATA "09*@0d2805*e2cdIc0d52 

b2b462b4ecd02* ce 1dSddeSc1©523232 

3712370eled%4109 

2350 DATA "5b5d5cl3225b5cc5cd©51 

93©+*cd0l16clrd1b1*2a4d5c©d5b2b* 

c a7ed5:Leb72 J| ^ 3B33 

23*0 DATA "2b / 3c92a2tí + c*7ed42d82 

a2*f ccd 1 c* *0009dd2a31 *cc5c:tí6í*l °c 

lcdB019d0ed HI ,4319 

2370 DATA "5b33*cdd19c5cdb819©b1 

Be© 00001027 00000*000*002 a b 2 5c. 363 

e2b*?2b2b22%2663 

2380 DATA 11 3d5c*d213a5c2lbó5c224 

*5c1 la*l5011500ebBdbO©b2b22575c2 

322535c224b % 2828 

2390 DATA ^5c36B02322595c360d233 

68023226I5c22635c22655c3e0f328d5 

C328*5c324B% 2285 

2400 DATA "5c3©01 d3+e+d35c6+c)35cr 

acd!2**l1105c01OeOOedbQ*debo1c ec 

dd*0e*íJ363l%4124 

2410 DATA "02cd0O*3a*1Ib5*ccd0a0 

c*d.360100*dcb02©ec35+©*807*20313 

93834204 i 72 lp , 3547 

2420 DATA "616e6l20534*465457415 

2c5c*0bcd*0* c©5*57e32aE+e*lf©203 

025+ e103821",4038 

2430 DATA "fel83B0ad61tíl1eb+ecd1 

l + de 1c9e1184521Oe* d * de bO14ec023* 

dcb0248cS23 , %4i32 

2440 DATA "c92*Ocf dcct2c i.6»l 3**5* 

©77c935+d 0<*000O * 5c d 41 Oí:: Z e 20* d c b O 

146ec3b0cl*%3556 

2450 DATA "e67*cd3b0c 1 a 138730+5ft 

1* ©482803* e823©20c33b0c c d030b *©7 

Qd 21b * e+ © iO % 3694 

2460 DATA "386d*©lB3062*el630531 

14* * dc37dOa11cd+ccdBOO*2aOe5c573 

aOd+dfe09ca M ,3513 








2470 DATA "9 \Úa7tí+e i6d*U2220ie4 
44a3€K$491daac0ac6044+ i? + c b3933023 
el 532a5+ecd 11 , 3730 

2490 DATA lf a30acd+0+cc307+cJ7crcdO 

30b+S3.fl*5+e+eí01cbl L + 1 Rld603*63+ c 

3c: «Oa 1 1 c* 1 + d " , 4503 

2490 data " í Bab 11 4+ + rif:3700*3e3 f i 

B7O+@a62Q0bCb2l3&4491e630c61QV8c 

e+ @OB202*3a" , 3056 

2500 DATA M *5f«a72805af32*5?ec93 

e 1532a5+e0c3e22b92O1 5+dcbü 14e200 

9040*023»19",3057 

2510 DATA M bB20G7050e21af32*5+ec 

3d90a+eO92Ol3+d7e57+5+d77573e2Oc 

d41fetlfd77 lh J 4059 


8Qd3e+0al4í",3606 

2580 DATA "3*0+b047 l aa0aea912003 

Bt8l4233d20cl3$b25ídcb014&ccclb0be 

1113**5+e*7 11 ,3621 

2590 DATA "eOOtí23c9083*20035+001 

8elb+454c53c54f4e204552d2415554c 

+ 52454e53cd ,! p 3132 

2600 DATA "4*c*535741d04d4f44c5c 

021*5+*3600c3cd0#2Lcd+c22c55c21c 

6l5c9ed42e83+dld8d5c9", 4932 


LISTADO 2 


1 Oj "EXT. BASIC”;AT 7 ? 12; "espera■' 

20 PLOT 72,144! DRAW 96.0? DRA 
i/l O, *40: DkAííJ '96* Oí DRAVJ O, 40 
30 LOAD #"m" j 1; "EXT, "CDDE 
40 POKE 23307,205: PQKE 23808, 
252 

45 POKE 61265,24: PORF 61266,1 

2 

50 RANDOMT ZE USR 61260 
100 SAVE 1 ; ‘'EXT 11 LIME 10: 

SAVE # " ro" ; 1 j "EXT. ,J CODE' 60159,515 
7 


2520 DATA ,k 57c3dc0a+@0d20*0+ck:b0 

14ec2 O a + f *+ 32*5+ »0*21c d550c O 5c 3 d 

90dcd21+^3“, 4075 

2530 DATA ^dcOafí?903BÍccl6a5d25+ O 

bc6l5+ 53**S+**72SÚ53*20cd4l + ef 1 c 

5ed4b7b5cc3%4¿38 

254o DATA >l 6*0t&5üle6*?*eb313b5cc 

beó+«202002cbc626006+29292909c1* 

b3aa5+*a7?8%36l7 

2550 DATA "Oóa+32*5+el81f793d3«2 

1200e054f+dcb014e2806d5cd0*++dl7 

9b 9d Ser550c 11 ,3405 

2560 DATA 11 di 3* 1 532*5+«cSeSfd7e5 
706+ +lf 3601041+1 + 9+ 4+3@08a7+dcbO 
14*2905+deb",3579 

2570 DATA "30ce37*b0810003*0+*)4 
+3e+Ob047a+»d67Iaa0a*a912a+ed6+1 


10 PAPER 1í BORDER ti INPüT ;: 
INK 91 CLEAR 601501 PRINT AT 5, 
10| "EXT- BASIC ,k |AT 7, l2í M e*p*ra" 
20 PLOT 72j144: DRAW 96*0l DBA 

W 0,-40: Oh AW ^9^-3 Oí DhAW 0,40 

30 LOAD "'-nr;ir>p; 

4o 1 -ftf.jnrrm >. MSN 61754 
TOO 8ÁVE "9*1“' LENE 10: 0AVE "£ 
Tr'omf 603^5157 


LISTADO 3 


10 PAPER í: BORDER 1: TNPLJT 
INK 9: OLEAR 60150! PF.iNT AT 5 S 


LISTADO 4 


lí LÍF Fll cíiKJUN-lHUriOiKiilt-^iiiDJWÍ'S 
¿a OEF ffl tiiHMitiAiilMMúttlft 
ft& as : IlttUt "fUhClvn "j LlilE i$ 

411 IlhlT AI Íjl/'T 'JWT M¿"X mi» ■** 
HT OlIjmíMT l.SjDHlHi.H* ¿XmifCáT 
5fl LEÍ »=fh HtO): IF *>=R MD K=iñ HO fot ».Q: 
«0 LCT i=Fn tfO): IF ü>-=Ú «ID iCl?& TIO PL9I D i 
7Ü Hgí N xni^ ¿TEF 
Sa LO :iUFl :í(üí: Lp ylifd yiWL ü): K(fT XLül 
M un ERt í f i 
1DQ HEKl X 
na m 
no un m b 

m If kl>¿SS ÍBÍfl LEI itlsiíS 
hú w kkü mu líí ki*(i 

LSfl IF yi>lí$ THCI1 LET tfl=L7S 
16Q IF 4LD IHEd LTT yi=4 
17B LüflTiaUE 


HÍTi ,é 

DBkí 1,175 
WM 2SS.ÍI 
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PROTEJA SU SPECTRUM PLUS CON ESTA 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
: sobre su precio normal. 

















&©scws 

Base de datos 


inteligente 


QOOOOQOQ 


Suplemento especial 


¡rabre 1985 
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El QL Español, sin más retrasos 


Ya hemos podido ver que 
el QL en su primera versión 
española, que responde a 


VERS=“MGE”, probablemente 
en honor de alguno de los que 
participaron en su conversión a 


Problemas con la impresora 


Algunos usuarios nos han 
comunicado que han tenido 
problemas para sacar por im¬ 
presora los caracteres españo¬ 
les. Aunque el manual no lo 
mencione, existe una instruc¬ 
ción {TRA I) que hace que el 
programa convierta su repre¬ 
sentación interna para estos 
caracteres en el standard AS¬ 
CII. Así, cualquier impresora 
que tenga seleccionado el jue¬ 


go de caracteres español los 
imprime sin problemas, to¬ 
mando la precaución de te¬ 
clear TRA i en el BASIC an¬ 
tes de imprimir. 

Además, la nueva versión 
incluye una serie de procedi¬ 
mientos y funciones que nos 
ayudan a controlar los errores 
en SuperBASIC, y que co¬ 
mentaremos en un próximo 
número. 


las lenguas peninsulares. Con 
un teclado que permite la intro¬ 
ducción de los caracteres pro¬ 
pios sin necesidad de malabaris- 
mos con el teclado, y una nueva 
versión de los programas de 
Psion, íntegramente converti¬ 
dos al castellano y mucho más 
.rápidos, el QL queda en dispo¬ 
sición de luchar con máquinas 
mucho mayores (hay que tener 
en cuenta que el sistema Xchan- 
ge, nombre de los programas de 
Psion en versión IBM PC, cues¬ 
ta más que el QL, que los in¬ 
cluye con la máquina). 

Por otro lado, finalmente Sin¬ 
clair ha optado por adoptar 
como oficial el sistema de dis¬ 
cos de 3 1/2 pulgadas de Micro- 
Peripherals, con unidad simple 
o doble de 800 K formateadas. 


Qt-2 


















Programas españoles para el nuevo QL 


, Existen a) menos dos compa¬ 
ñías que se han tomado muy en 
serio las posibilidades profesio¬ 
nales de esta máquina: se trata 
de Alsi Comercial, y de Takis, 
La primera ya nos anunció hace 
tiempo la conversión de su pro¬ 
grama de gestión integrada para 
Spectrum. 

Recientemente hemos podido 
ver una versión demo de este 
programa, y su lanzamiento de¬ 
finitivo se hará muy en breve. 
Además, se nos anuncian otros 
programas: Alsi stocks destina¬ 
do a control de almacén, con 
hasta 1.800 artículos en micro- 
drive o 14.000 en disco. Espera¬ 
mos verlo dentro de poco. 

CambiAIsi se encarga de ges¬ 
tionar nuestras facturas o letras 
de cambio, y AlsiMail sirve 




■ - FlWKflWi IíÍMjWÍÍ MÍ1 
: I» la K-e-if UIUÍ 


- ■ -T nEELiS SrijJlflS ij$ 

*»' 'Wt¡ rí-ktagr h-3í 3 MdKíns'í! aa ajo lbk 


WíK. 4a 


dores y 5.000 clientes o distri¬ 
buidores. La impresión se podrá 
realizar por cinco modelos de 
impresora diferentes, y es el pri¬ 
mero de una serie de programas 
profesionales. Su siguiente «in¬ 
cursión» será en el terreno de 
las profesiones liberales, con 
programas para médicos, aboga¬ 
dos, etcétera. 


para manejar un fichero de di¬ 
recciones e imprimir etiquetas o 
recibos. Con Alsicont podremos 
llevar la contabilidad, con op¬ 
ciones interesantes. Finalmen¬ 
te, su Simulador Financiero nos 
ayuda a tomar decisiones y pla¬ 
nificar nuestro negocio. 

Takis, que ya había realizado 
algunas aplicaciones profesio¬ 
nales para Spectrum, también 
confía en la nueva máquina. He¬ 
mos podido ver su MASTER- 
COM, un programa que combi¬ 
na la contabilidad con el control 
de stocks. 



El programa ofrece una pre¬ 
sentación muy atractiva, e inten¬ 
taremos hacerle un test exhaus¬ 
tivo en breve. Está preparado 
para su uso con la unidad de dis- 
kettcs que comercializa Inves- 
trónica, y dispone de hasta 
10.000 artículos, 1.000 provee¬ 


Todos sus programas traba¬ 
jan con la unidad de disco, y dis¬ 
pondrán de protección Hardwa¬ 
re, ya que, nos han confesado, 
están muy escamados con la pi¬ 
ratería de los programas para 
Spectrum. 



También en Inglaterra hay movimiento 


Entre las compañías de soft¬ 
ware que han elegido el QL, Ta- 
lent Software ha producido ya 
dos programas muy interesan¬ 
tes: Cartridge Doctor, destinado 
a «curan> nuestros cartuchos de 
microdrive que presenten pro¬ 
blemas de carga, y del que ha¬ 
blamos en otro artículo en este 
mismo número. Por otro lado, 


GraphiQL es un programa de 
dibujo que nos permite dibujar 
con el ordenador, como si se 
tratara de un lienzo. Novedades 
respecto a otros programas del 
mismo tipo son la definición de 
texturas (análogo del dibujo de 
un papel pintado), con las que 
se pueden rellenar áreas, y el di¬ 
bujo con aerógrafo, que rellena 


la zona por la que nos movemos. 

Ambos juegos son distribui¬ 
dos por Sentía, que también co¬ 
mercializa la versión para QL 
de D-Day, un juego de guerra 
de los más potentes que se han 
desarrollado, que nos permite 
dirigir el ejército aliado y ale¬ 
mán en el desembarco de Nor- 
mandía. 































L a mayor parte de las aplica¬ 
ciones profesionales se limi¬ 
tan a almacenar, actualizar 
y presentar con el formato adecua¬ 
do un conjunto de datos relaciona¬ 
dos entre sí. Vienen a ser simple¬ 
mente una base de datos a la que se 
ha privado de su flexibilidad. 

Si disponemos de una base de 
datos programable nada nos impi¬ 
de realizar nosotros mismos una 
aplicación a la medida. Este es el 
propósito de Archive: dotamos de 
los medios para construir nuestro 
programa de gestión. 


Las bases de datos, 
sistemas de tratamiento 
de información 

Todos hemos oído hablar alguna 
vez de estos programas, pero resul¬ 
ta muy difícil explicar qué se en¬ 
tiende exactamente por este térmi¬ 
no, ya que el mismo nombre sirve 
para identificar programas muy di¬ 
ferentes. En esencia, una base de 
datos es un programa que gestiona 
la entrada y recuperación de infor¬ 
mación. 

La comparación de estos progra¬ 
mas con los archivadores nos ayu¬ 
dará a ver cuál es el avance que su¬ 
pone la informatización de nues¬ 
tros datos. En un archivo guarda, 
en cada ficha o carpeta, informa¬ 
ción que responde a una determi¬ 
nada palabra clave (por ejemplo, 
en un archivo de facturas, podría 
ser el nombre de la empresa a la 
que facturamos). Asi, la recupera¬ 
ción de toda nuestra facturación a 
una determinada empresa equivale 
a localizar en el archivo ordenado 
el nombre de la empresa y sacar la 
carpeta. 

El acceso por entradas múltiples 
a nuestros datos potencia la base 
de datos respecto al archivador. 


Imaginemos, en cambio, que 
queremos hacer una estadística de 
las ventas por regiones de un ar¬ 
tículo determinado. El problema 
es mucho más difícit, ya que habrá 
que repasar empresa por empresa, 
localizar las facturas que se refie¬ 
ren a ese artículo y clasificarlas por 
regiones. Un trabajo pesado que 
nos puede resolver el ordenador, 
siempre, claro está, que hayamos 
utilizado una base de datos para al¬ 
macenar la información. 


Más que una base de datos. 
Archive es un verdadero 
lenguaje de programación, 
que sirve para resolver 
cualquier tipo de problema 


En esa aplicación, cada factura 
sería una ficha o registro, donde la 
información está almacenada en 
distintos campos. Uno podría ser el 
código de artículo, otro la empresa 
a la que se factura, etc. En otros ar¬ 
chivos auxiliares podemos almace¬ 
nar las direcciones de las empre¬ 
sas, y en otro una descripción deta¬ 
llada de cada artículo. El progra¬ 
ma, para realizar nuestra estadísti¬ 
ca, selecciona las fichas que se re¬ 
fieren al artículo de interés, y ave¬ 
rigua la región en que está la em¬ 
presa mediante los archivos auxi¬ 
liares. El trabajo sigue siendo com¬ 
plicado, pero por lo menos parece 
manejable. 

Con este pequeño ejemplo he¬ 
mos ido subrayando algunas de las 
características interesantes de una 
base de datos. Debe permitir traba¬ 


jar con varios archivos simultánea¬ 
mente, poder tomar decisiones en 
función de los valores de los cam¬ 
pos, y debe tener funciones de bús¬ 
queda y selección que permitan 
cribar el archivo a nuestro gusto. 


Para comenzar, es necesario 
crear un fichero de datos 

Archive es un programa que ma¬ 
neja ficheros de datos. Por tanto, 
para empezar a trabajar el primer 
paso es crear un archivo. La ins¬ 
trucción crear hace justamente 
eso. Esta sentencia va seguida del 
nombre del fichero que almacena¬ 
rá nuestros datos, y en líneas suce¬ 
sivas van los nombres de los cam¬ 
pos que va a tener nuestro archivo, 
acabados en «$» sí son alfanuméri- 
cos. Para indicarle al programa 
que la operación de creación ha 
acabado basta teclear fmcrear, 
aunque si el comando no forma 
parte de un programa basta teclear 
una línea vacía. 

Una vez creado el archivo, la 
función cuenta() nos devuelve 
como resultado e! número de fi¬ 
chas que contiene nuestro archivo. 

Si queremos ahora llenar algunas f 
fichas se puede hacer mediante in¬ 
sertar, que añade nuevos datos. El 
programa sitúa el cursor en el pri¬ 
mer campo, nos permite introdu¬ 
cirlo y editarlo y, al pulsar EN* 
TER o TAB, pasa al campo si¬ 
guiente. Una pulsación de 
MAYUSCULAS TAB nos devuel¬ 
ve al campo anterior, que podemos 
modificar. Mediante F5 se intro¬ 
duce el registro como está en el fi¬ 
chero, y F4 o ESC nos sacan del 
comando. 

Todo el proceso de edición ha¬ 
brá tenido lugar en la pantalla. 
Como no hemos definido una pan¬ 
talla de presentación, el programa 
nos proporciona una bastante ru- 
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dimentaria, con los nombres de los 
campos, uno en cada línea, y espa¬ 
cio para introducir los datos en el 
resto de la línea. Ese formato se 
puede modificar fácilmente para 
presentar la información en panta¬ 
lla de una manera más cómoda. 

Existe un comando muy pareci¬ 
do a éste. Se trata de Alterar, que 
nos enseña el registro sobre el que 
nos hayamos posicionado y nos 
deja modificar sus campos. Otra 


manera de cambiar registros es uti¬ 
lizando las variables de campo. Es¬ 
tas, que tienen el mismo nombre 
de la definición del archivo, nos 
devuelven el campo correspon¬ 
diente del registro sobre el que es¬ 
tamos posición ados, y se actuali¬ 
zan cada vez que cambiamos de 
posición. Podemos modificarlas 
mediante la sentencia haz (let), y 
cuando los valores de los campos 
sean correctos, bastará introducir 
actualiz para que el programa defi¬ 
na el registro de acuerdo con los 
valores 1 de las variables de campo. 
Este procedimiento está pensado 


para ser utilizado dentro de los 
programas, y resulta muy cómodo 
para calcular el valor de un campo 
en función de otras variables. El 
comando añadir actúa de manera 
parecida, pero añade un nuevo re¬ 
gistro con los valores de las varia¬ 
bles de campo. Desde el teclado se 
puede elegir la ficha de interés re¬ 
corriéndolo con los comandos pri¬ 
mero, último, próximo y anterior, 
pero resulta más práctico usar los 


comandos de búsqueda: situar, ha¬ 
llar, buscar y elegir. El primero 
nos sirve para localizar un valor de 
un campo determinado. Pero para 
utilizarlo hay que ordenar previa¬ 
mente el archivo. 

Indexación de archivos. 

Una herramienta necesaria 

La indexación puede incluir 
hasta cuatro campos, y situar pue¬ 
de tener tantos parámetros como 
campos de ordenación. Hallar nos 
busca una cadena de caracteres en 


cualquiera de los campos de un ar¬ 
chivo. Es el comando a usar cuan¬ 
do no estamos seguros del campo 
en que aparece la información. Los 
comandos buscar y elegir aceptan 
una expresión lógica. Buscar loca¬ 
liza el primer registro que haga la 
expresión distinta de cero. Elegir 
selecciona los registros que cum¬ 
plan la condición; a partir de ese 
momento el fichero se comporta 
como si no hubiese más registros 
que los elegidos, y sólo el comando 


Una norma a no olvidar: 
cerrar siempre los archivos 


restaurar devuelve el fichero a su 
condición inicial. Las expresiones 
se suelen componer de variables de 
campo. 

Por ejemplo, si queremos averi¬ 
guar cuántos clientes tenemos con 
saldo negativo, basta teclear elegir 
saldo < 0 . Después de esta opera¬ 
ción, todos los comandos afectarán 
sólo a los registros con saldo nega¬ 
tivo. Si hubiésemos introducido 
buscar saldo <0, el programa se 
detendrá en el primer registro con 
saldo negativo. Después de tomar 
medidas contra el moroso, si te¬ 
cleamos continuar el programa irá 
al siguiente. 

Definir pantallas: una buena 
presentación disminuye errores 

Hasta ahora no hemos hablado 
apenas de los comandos que afec¬ 
tan a la pantalla e impresora. Entre 
los más importantes están escribir, 
equivalente a PRINT, o imprimir, 
que sustituye a LPRINT. Ambos 
admiten en, tab, tinta o papel 
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como parámetros. Otro comando, 
vía, permite que el texto se impri¬ 
ma a microdrive o incluso a la pan¬ 
talla. Limpiar borra la pantalla. 
No olvidemos que, si teníamos de¬ 
finido un formato, será necesario 
volver a activarlo con pantalla. 

El editor de pantallas de Archie 
resulta muy útil cuando queremos 
presentar la salida de una forma 
agradable a ía vista. Una vez intro¬ 
ducido el comando Peditar se nos 
permite teclear nuestro «impreso». 
A continuación, de una manera 
sencilla, especificamos qué varia¬ 
bles se imprimirán y en qué posi¬ 
ciones de la pantalla. El resultado 
puede ser tan agradable a la vista 
como queramos y, aunque el edi¬ 
tor es poco flexible, es una tarea 
que se hace sólo una vez. 


sino y finsi nos permiten tomar de¬ 
cisiones. Mientras y finmientras es 

una estructura de bucle que itera 
mientras sea cierta una condición 
lógica. También resulta muy útil 
todos, que repite las operaciones 
entre el comando y su correspon¬ 
diente ñnitodos con todos los re¬ 
gistros seleccionados. Si queremos 
tener varios ficheros abiertos si- 
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Los comandos que hemos citado 
hasta ahora admiten su uso directo 
desde el teclado o pueden ser in¬ 
corporados en nuestros programas. 
Existen instrucciones que sólo tie¬ 
nen sentido dentro de un progra¬ 
ma. Una de ellas es si, que junto a 


limitáneamente, debemos asignar¬ 
le un nombre lógico a cada uno. 

Los programas de Archive se or¬ 
ganizan mediante procedimientos, 
que se pueden llamar como sí fue¬ 
ran comandos del sistema. El pro¬ 
grama incluye un editor sencillo, 


pero cómodo de manejar, y una 
instrucción traza, que permite se¬ 
guir paso a paso la ejecución de 
nuestros programas. 

En resumen, un programa po¬ 
tente, no tan fácil de manejar 
como sería deseable. 

Entre las principales virtudes de 
Archive está su capacidad para eje- 


ios programas Archive se 
organizan mediante 
procedimiento s 


cutar comandos programados por 
el usuario, una característica pre¬ 
sente sólo en algunos programas 
para máquinas profesionales, y 
siempre a un precio poco asequi¬ 
ble. Lo peor del programa es el 
editor de pantalla, algo confuso en 
su utilización y con el que resulta 
fácil equivocarse. 

Para hacerle justicia a Archive 
tendríamos que usar diskettes y 
una ampliación de memoria que le 
dejara «moverse a sus anchas». En 
general, el programa merece un 
diez en potencia, un siete en facili¬ 
dad de uso, un seis en presentación 
de resultados, y (la versión 2) un 
ocho en velocidad. 

Por último, queremos decir que. 
dada la extensión de este artículo, 
es inevitable dejar m uchos coman¬ 
dos sin siquiera comentar, y ape¬ 
nas hemos citado un par de funcio¬ 
nes. No sería exagerado decir que 
Archive es un lenguaje de progra¬ 
mación, y que su potencia permite 
escribir programas para cualquier 
tipo de aplicación. El programa no 
resulta difícil de manejar, pero si 
queremos «exprimir» las posibili¬ 
dades de la máquina, habrá que 
practicar bastante, ¡Por cierto! Si 
algún lector ha escrito alguna apli¬ 
cación interesante, estaremos en¬ 
cantados de publicarla en nuestras 
páginas. 













Cartridge Doctor, 
para no perder 
información 


Los programas para recupe¬ 
rar información de discos par¬ 
cialmente estropeados son de 
uso cotidiano en máquinas 
como el Apple II o el IBM PC, 
Teniendo en cuenta la fragili¬ 
dad del microdrive era raro que 
ninguna compañía inglesa se 
hubiera lanzado hasta ahora a 
escribir un buen programa para 
cuidar nuestros cartuchos. Ser- 
nia se ha traído de Gran Bretaña 
este doctor, escrito por los chi¬ 
cos de Talent. 

Según el manual de instruc¬ 
ciones, que resultará claro para 
quienes dominen el inglés, el 
programa utiliza avanzados 
conceptos de inteligencia artifi¬ 
cial (¿?). El programa parece 
«listillo», pero no tan inteligen¬ 
te como nos quieren hacer creer 
sus autores. 

Nada más arrancar, dispone¬ 
mos de cinco opciones: AUTO- 
CLONE, que duplica un cartu¬ 
cho en otro, incluyendo los fi¬ 
cheros que habían sido borra¬ 
dos y aquellos que dan proble¬ 
mas de carga. FILE PATCH 
nos permite editar archivos al 
nivel más bajo, parchcar aque¬ 
llos ficheros que nos den pro¬ 
blemas de lectura, o simple¬ 
mente curiosear su contenido. 

SALVAGE SECTIONS sirve 
para copiar parte de un archivo 
a otro, con la posibilidad de sal¬ 
lar una parte defectuosa. La 
cuarta opción nos ofrece un 
catálogo ampliado, con el nú¬ 
mero de bloques que ocupa e¡ 
archivo, y qué entrada ocu¬ 


pa en el directorio. Por último, 
TRANSLITERATE copia un 
archivo en otro cambiando to¬ 
das las ocurrencias de un carác¬ 
ter dado por otro. 

Salvar cartuchos 
dañados, una tarea fácil 

La opción de duplicación es 
la primera que debe usarse 
cuando tenemos problemas de 
carga: así evitamos dañar aún 
más el cartucho en nuestros tor¬ 
pes intentos de salvación. Para 
ello es necesario disponer de un 
cartucho vacío, en el que se rea¬ 
lizará la copia. El programa em¬ 
pieza mirando si el directorio y 
e¡ mapa de sectores están en 
buen estado. A continuación 
nos presenta el nombre de cada 
fichero, con el mensaje OK si lo 
ha leído bien, y el número de 
bloques incorrectos en caso 
contrario. Se nos da la opción 
de pasar cada fichero al nuevo 
cartucho. 

Una vez acabada la copia po¬ 
demos optar por intentar par- 
chear los archivos que no hayan 
podido ser recuperados correc¬ 
tamente. Si éstos están en códi¬ 
go máquina, los resultados se¬ 
rán negativos la mayor parte de 
las veces. Si son BASIC o de 
texto, aún podemos conservar 
esperanzas. 

No os sorprendáis si el pro¬ 
grama presenta en pantalla 
nombres de archivos que bo¬ 
rrasteis hace meses: una de sus 


características es que recupera 
ficheros borrados, siempre que 
el espacio que ocupaban no 
haya sido «machacado» por 
otro archivo. Así, sí accidental¬ 
mente perdemos algún dato im¬ 
portante, no debemos volver a 
utilizar el cartucho hasta haber¬ 
lo recuperado mediante Car¬ 
tridge Doctor. 

La opción de parcheado es un 
editor muy simple, que nos pre¬ 
senta carácter a carácter cada 
bloque, pudiendo escribir en él, 
pasar al bloque siguiente, etc. 
Si, por ejemplo, un bloque es 
leído con dificultad, basta si¬ 
tuarse en él (tras una buena lec¬ 
tura) y decirle al programa que 
lo vueha a escribir. General¬ 
mente desaparecerán los pro¬ 
blemas, y la carga será más rápi¬ 
da. 


Sólo para copias 
de seguridad 

Más de un pirata se frotará las 
mañosa! leer este artículo, pero 
mucho nos tememos que sus 
ilusiones ser verán defraudadas: 
Cartridge Doctor sólo copia, no 
desprotege. Cualquier progra¬ 
ma protegido mantendrá su 
protección, y los programas que 
no lo están se pueden copiar 
desde el BASIC, así que no se 
trata de «abrir». Este programa 
es mucho más útil: recupera in¬ 
formación que se quedó enreda¬ 
da en los bucles del microdrive. 
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Este monitor en color 
CUB es TOTALMEN TE 

compatible con el Sin¬ 
clair QL. _ 

Combina las capacida¬ 
des de gráficos destaca¬ 
dos con la facilidad de 
visualizar textos en 85 
columnas mientras hace 
justicia al potencial de 

color del QL. Su nuevo 

diseño dotado de una ba- 

s e basculante y giratoria 
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con la simple apariencia 

funcional del QL. 
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La memoria 


C omo su propio nombre in¬ 
dica, esta vale para almace¬ 
nar los datos y programas 
Que se ejecutan, sin ella el 
ordenador sería un amnési- 
co perdido y no serviría para nada 
al no poder recordar nada. Es más, 
debido a que todos los programas 
que ejecuta se almacenan en me¬ 
moria, se podría decir que un orde¬ 
nador sin memoria está en coma 
profundo ya que no sería capaz de 
hacer nada {ni siquiera nos podría 
poner en pantalla el mensaje ini¬ 
cial de Sinclair Research ya que 
esto también lo hace un programa 
especial denominado «sistema 
operativo»). 

Esta memoria se divide en dos 
grupos distintos. El primero es el 
compuesto por la «memoria 
ROM» (abreviatura de «Read 
Only Memory»), ésta es de un tipo 
que sólo se puede leer por micro- 
procesador y no escribir. Esto pue¬ 
de crear la idea desque entonces no 
tiene ninguna utilidad, ya que no 


se pueden introducir datos. Pero la 
realidad nos demuestra que hay 
una serie de programas que nunca 
se modifican y que vienen con la 
máquina, por lo que es más conve¬ 
niente este sistema que no leerlos 
de cinta cada vez que los necesite¬ 
mos. Entre otros programas hay 
que destacar al sistema operativo y 
al intérprete BASIC. Estos se gra¬ 
ban en la ROM directamente en la 
fábrica por procesos especiales. 

La RAM (nombre que proviene 


del término «Random Access Me¬ 
mory») consiste en la memoria en 
la que sí se puede escribir además 
de leer. En ella se almacenan los 
datos, los programas que teclea¬ 
mos o cargamos de cinta, etc. Este 
tipo de memoria es, por tanto, mo- 
dificable y todos los datos guarda¬ 
dos en ella se borran al apagar la 
máquina, perdiéndose irremedia¬ 
blemente si no ios hemos grabado 
en cinta. 

El funcionamiento de la memo¬ 
ria dentro del ordenadores un tan¬ 
to especial, por lo que lo examina¬ 
remos más atentamente. Como co¬ 
mentábamos antes, cada memoria 
individual consiste en una casilla 
en la que se pueden almacenar da¬ 
tos, cada una de estas casillas está 
numerada y no hay dos que posean 
el mismo número, ya que entonces 
nuestro «cartero», el Z-80, no sa¬ 
bría a cuál de las dos dirigirse. La 
cantidad de casillas disponibles 
está limitada, por tanto, por los 
números que se puedan usar y esto 
lo determina el microprocesador. 
En el Z-80, como veremos poste¬ 
riormente, el número inferior que 















se puede utilizar es el O, y el mayor 
el 65535(FFFFh), por lo que exis¬ 
ten 65536 casillas distintas. 

Otro detalle característico de las 
memorias en su almacenamiento, 
cada.vez que introducimos un dato 
en una de ellas, el que existiese en 
esa misma previamente se borra y 
es sustituido por el nuevo. Por tan¬ 
to, cada una de ellas sólo puede 
contener un número que debe es¬ 
tar comprendido entre 0 y 255 (un 
byie que es lo que cabe en cada 
una). También peculiar es el caso 
de sacar un dato de una casilla 
para leerlo, ya que, al contrario 
que las cartas del buzón, cuando 
sacamos un dato de una memoria, 
sigue existiendo una copia de él en 
la memoria. En realidad el único 
método existente-para borrar un 
dato de una memoria es escribir 
otro encima. (Por supuesto este 
método de escritura sólo se puede 
usar con la memoria RAM y no 
con la ROM). 


Los dispositivos de entrada 
y salida 

Un proceso vital que debe reali¬ 
zar todo ordenador para ser útil es 



el de comunicarse con el mundo 
que le rodea. Esta frase tan grandi¬ 
locuente se transforma en el Spec- 
trum en el proceso de leer datos 
del teclado, mostrarlos por panta¬ 
lla, grabar y leer en cinta, etc. Re¬ 
sulta evidente que si no se pudie¬ 
sen realizar estos procesos el orde¬ 
nador seria un trasto totalmente 
inútil ya que aunque fuese muy 
potente, nosotros no podríamos 
utilizarlo para nada. 

Estas funciones las realiza en el - 
Spectrum el microprocesador ayu¬ 
dado por un chip llamado «ULA» 
(Uncomited Logic Array) que es lo 
que podríamos denominar un 
«procesador de entrada y salida»; 
es decir, una especie de micropro¬ 
cesador diseñado específicamente 
para estas funciones. 


El microprocesador 

Este es el famoso Z-80 y fue di¬ 
señado por la compañía norteame¬ 
ricana Zilog (la mayoría de los 
componentes de un ordenador no 
son construidos por el fabricante 
de éste, sino que los compra a otras 
empresas especializadas en estos 
trabajos). Este chip (o cucaracha, 
como se le denomina vulgarmente 
en España) se encarga de controlar 
todos los procesos y de realizar to¬ 
dos los cálculos. Una representa¬ 
ción por bloques de su estructura 
se puede ver en la figura 5. En ella 
vemos que dentro de él existen una 
serie de «cajas» denominadas re¬ 
gistros, en los cuales se almacenan 
diversos datos necesarios para el 
funcionamiento y los cálculos que 
le ordenemos. También existen 
tres buses que salen de él hacia el 
exterior. Estos son una serie de li¬ 
neas por las que se controlan ¡as 
memorias y el procesador de entra¬ 
da y salida. 

En el bus de direcciones se en* 
vían los números empleados para 
seleccionar una memoria u otra, 
de modo que si aquí hay un cero, 
se manejará la memoria cero y se 
hay un mil, se manejará la memo¬ 
ria mil. El bus de datos es por don¬ 
de se envían y reciben los datos a 
las memorias y al procesador de 
entrada y salida. 

Por último existe un bus de con¬ 
trol que se encarga de llevar todas 
las demás señales necesarias para 
el correcto funcionamiento de la 
máquina y que iremos viendo pos¬ 
teriormente, interrupciones, con¬ 
trol de la ULA, refresco de la me¬ 
moria, etcétera. 

Los registros internos que co¬ 
mentamos antes tienen cada uno 
encomendadas misiones específi¬ 
cas como vamos a ver. 

El primero es el acumulador, re¬ 
presentado por la letra «A». Aquí 
se realizan todas las operaciones y 
se guardan los resultados. Su equi¬ 
valente más directo es la pantalla 
de una calculadora, en la que se 



































meten todos los datos y donde se 
muestran los resultados. Su capa¬ 
cidad es la misma que la de las me¬ 
morias, un byte. En realidad se 
debe a la capacidad de este registro 
el que las memorias no puedan 
contener más datos cada una, ya 
que aunque las hiciésemos más 
grandes, no cabrían aquí y los dígi¬ 
tos sobrantes se desperdiciarían. 

El registro PC es, junto con el 
acumulador, el más importante del 
microprocesador ya que es el con¬ 
tador del programa, es decir, aquí 
se almacena la dirección de la me¬ 
moria donde está almacenada la si¬ 
guiente instrucción del programa 
que se está ejecutando. Es un regis¬ 
tro de !6 bits , por lo que ésta es la 
cantidad máxima de memoria que 
puede direccionar el microproce¬ 
sador, cualquier memoria situada 



fuera de este rango no podría ser 
manejada y sería inútil. El manejo 
de este registro lo realiza, casi 


7 6 5 

4 3 2 1 0 

S Z 

0|H OBv N C 

FIGURA 6 



siempre, el microprocesador por 
su cuenta y lo incrementa después 
de cargar una instrucción para que 
apunte a la siguiente de modo que 
cuando la tenga que ejecutar ya 
sepa cuál es su dirección, que se 
saca por el bus de direcciones. 

El segundo registro de 16 bits 
existente en el Z-80 es el «SP», de¬ 
nominado stack pointer, que tra¬ 
ducido al español significa «punte¬ 
ro de la pila». Esta es una zona de’ 
la memoria general que se reserva 
para ser usada como una memoria 
«LIFO», que resulta muy útil para 
almacenar y sacar datos a gran ve¬ 
locidad, aunque debido a las res¬ 
tricciones de este manejo (sólo se 
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puede manejar la última que se ha 
metido) no se puede usar siempre. 

Otros registros son los formados 
por las parejas B-C, D-E y H-L. 
Cada una de estas parejas se puede 
usar como un registro de 16 bits 
para apuntar a direcciones de me¬ 
moria, como dos de 8 bits en los 
que se guardan datos de uso gene¬ 
ral . Estos registros son muy versá¬ 
tiles y aunque no permiten realizar 
operaciones aritméticas en ellos 
como se hace con el acumulador, 
son muy usados. 

Los registros IX e IY son regis¬ 
tros de indexación. Este es un siste¬ 


ma para usar la memoria que es 
muy útil, sobre todo, para hacer 
contadores o manejo de matrices 
desde lenguaje máquina. Estos dos 
registros se usan siempre como de 
16 bits ya que están destinados a 
direccionar la memoria. 


Las banderas internas 

A continuación tenemos un re¬ 
gistro F. Este contiene un byte, 
pero aquí no expresa un número, 
sino que cada uno de sus bits tiene 
una función independiente de los 
demás; en este caso a cada bit, de¬ 
bido a que tiene una función dis¬ 
tinta, se le denomina bandera. 
Cada una de ellas es similar a un 
interruptor de la luz que cuando 
está «encendido» indica una cosa y 
cuando está «apagado» la contra¬ 
ria. La disposición de estas dentro 
del byte es la que se indica en la fi¬ 
gura 6. A continuación vamos a 
ver las funciones básicas de cada 
una de ellas, aunque posterior¬ 
mente se explicarán algunos usos 
no tan especificos como estos. 

La primera que vamos a tratar es 
la bandera de acarreo («C»). Esta 
es modificada por un gran número 
de operaciones matemáticas y lógi¬ 
cas. Quizá la principal de ellas, por 
lo menos por la que recibió el 
nombre, sea la suma. Recordarán 
que al hablar de la suma de núme¬ 
ros binarios, vimos cómo se hacía 
y que en muchos casos, como en 
cualquier otro sistema de numera¬ 
ción, resultaba que «nos llevába¬ 
mos uno» al sumar. Pues bien, si 
trabajamos con bytes pueden darse 
casos en los que obtengamos un re¬ 
sultado con 9 bits, como por ejem¬ 
plo «100! 000b» más «011101 Ob», 
que da «100000110b». Siendo el 
hit más alto (el octavo ya que em¬ 
pezamos a contar desde el cero) un 
uno. Este no nos cabe en el acumu¬ 
lador porque sólo tiene capacidad 
para un byte (8 bits), lo que hace el 
microprocesador es meter los 8 
más bajos en éste y el noveno lo 
mete en la bandera de acarreo. De 
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modo que si la suma da más de 8 
bits se mete un uno, y sí no un 
cero. En cierto modo se puede 
considerar una extensión del acu¬ 
mulador para ciertas operaciones 
pero se tiene que recordar que si 
leemos o grabamos este en alguna 
memoria, no se grabará el acarreo. 

La bandera N es usada interna¬ 
mente por el microprocesador 
para indicar si se ha realizado una 
suma o una resta y no suele tener 
utilidad para el programador. 

La bandera «P/V» tiene dos fun¬ 
ciones distintas. Cuando se realiza 
una operación aritmética en el 
acumulador con signo (es decir, se 
utilizan sólo siete bits para expre¬ 
sar el número mientras que el últi¬ 
mo indica el signo, un uno indica 
negativo y un cero positivo) éste 
indica si se ha producido un error 



de exceso en el cálculo. Es, por 
tanto, similar a la de acarreo pero 
en ésta se consideraba el número 
sin signo. El modo de realizar ope¬ 
raciones con signo lo veremos más 
adelante, ahora nos basta con sa¬ 
ber que existe. 

Otro tipo de acarreo que toma 
en consideración el microprocesa¬ 
dor es el de! nibbíe, para lo cual se 



usa la bandera «H» como la «C» 
pero en lugar de indicar un exceso 
en la suma de todo el byte, todo el 
nibble inferior y se pone a uno si al 
sumar da un 1 en el byte siguiente 
al del nibble. Es decir, al realizar 
sumas aquí se almacena el byte 5 
del acumulador, pero con las restas 
puede variar, En general se usa en 
las sumas de números pequeños o 
en ocasiones especiales. 

La bandera «Z» indica cuándo 
en el acumulador hay un cero. 
Esto es muy útil cuando se realizan 
bucles que se terminan al llegar de¬ 
terminado valor a cero, ya que bas¬ 
ta comprobar esta bandera y pro¬ 
ceder en consecuencia. 
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Al igual que la anterior indicaba 
cuándo había un cero en el acumu¬ 
lador, la «S» indica con un uno 
que hay un número negativo y con 
un cero que hay un positivo. Esto, 
evidentemente, sólo tiene sentido 
cuando se opera con números con 
signo. Esta bandera en realidad 
adopta el mismo valor que el bit 
más alto del acumulador {el 7). 

Las dos banderas que en la figu¬ 
ra están a cero no se usan y su va¬ 
lor resulta indiferente para noso¬ 
tros. 





Los registros paralelos 

Al ver cómo eran los registros 
internos del acumulador, vimos 
que existía un grupo compuesto 


por A’, F\ B’, C, D\ E\ H’ y L’ 
que eran paralelos a los que hemos 
visto. Estos registros primos for¬ 
man un grupo especial que no se 
puede utilizar normalmente y que 
se cambian con los principales me¬ 
diante una instrucción especial en 
cuyo caso sólo podemos usar los 
nuevos. Su uso se suele reservar 
para ejecutar rutinas a gran veloci¬ 
dad para evitar perder tiempo 
guardando los valores actuales y 
recuperando los nuevos, ya que 
con una sola instrucción se cam¬ 
bian entre sí. 

Fernando García 
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139 LEI d -1: L.ET t-2 

141 FOR n-1 TO LFN sí 

142 1F «$Cn ) < ’>?$ THEN BEEF <05 
,INT ÍRND*7) 

143 PRI NT AT -f , d; (n > 

145 LET d-cl + 1. 

146 IF d-31 THEN LET d*l: LET 
■f=f+ 1 

147 NEXT n 

148 PRINT AT 21,1;"PULSA UNA TE 
CLñ PARA CONTINUAR": PAUSE O 

149 FOR n=1 TO 22: RANDOMIZE US 
R 3190: NEXT n 

150 PRINT FLASH 1; AT 10,3; ''ESP 
ERA UN MOMENTO" 

151 LET cosiet-O: LET c:osies=0: 
LET r.omi et—O: LET con:i es~0: LET 
casass-0; LET casat=0: LET seis 

t=0: LET selss-0 

152 LET gans^O: LET gant«0> LET 
perss=0; LET per st-O 

153 DIM k (50) i DIM r<4>: DIM z< 
12): DIM c <100) s DIM x<86,2>i DI 
M y(86,2> 

154 RESTORE 159 

155 FOR n=1 TO 43 

156 READ a 

157 LET k(n)-a 

158 NEXT n 

159 DATA 12,17,51,5^,22,46,12,1 

7,51,56,22, 46,5,79,34,39,63,68,5 
,29,34,29,63,68 

160 DATA 1,2., 1, 1,2, 2,2, 1,2,2, 1 , 
1,2,2,1,1 , 1,2,1 , 1, 2 , 2 , 2,1 

161 RESTORE 166 

162 POR n=l TO 86 

163 READ a,b 

164 LET (n, 1) =a: LET yin,!)— b 

165 NEXT n 

166 DATA 26,16,28,16,26,16,28,1 
,23,21,23,20,23,19,23,18,23,17, 
3, 16,23, 15,23, 14,24, 1.3, 25, 13 
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, 3, 18, 4, 16, 5, 1 8,6, 1.8, 17,8, í 6, 8 

,15,8,14,8,13,8 

170 DATA 12,8,11,8, 10,3, 10, i 1,1 
O, 13, l}, 13, 12,13, 13', 13, 14, 13, 13, 
13, 16, 13, 1.7, 13 , 1.8, 14 

171 DATA 13,15,18,16,18,17,18,1 
3,18,19,18,20,18,71,71,21,21,20, 
21,1 9, 23,1.8, 21,17, 21,16,21, 15,2.1 

, 1,4 

172 DATA 21,1,21,2,21,3,21,4,21 

r> i a 1 ~7 

i t j ji y., l p q _iL.. -V iji f 

173 FOR n-1. TO 86 

174 READ a,h 

175 LET ;; í n , 2) —a : LET y (n, 2) =b 

176 NEXT n 

177 DATA 12,2,15,2,12,5,15,5 

178 DATA 22,21,22,20,22,19,22,1 
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180 DATA 22, 1,.22,0,21,0, 19,0,19 
,1,19,2,19,3,19,4,19,5,19,6,19,7 
, 17,®, 16,9, 15,9, 14,9', 13,9,12, 9 

181 DATA 3.1,9, ] 0,9, 10, 10, 1 0, 12, 
11,12,12,12,13,12,14,12,15,12,16 
, 12,17,12, 19,14,19,15,19,16,19, 1 
7, 19,18,19, 19, 19,20,19,21,20,21 

182 DATA 20,20,20,19,20,18,20,1 
7,20,16,20,15,20,14,20,1,20,2,20 

5 c?n A 70 s o o i. O(-) 7 

183 RESTORE 188 

184 FOR n-1 TO 12 

185 READ a 

186 LE‘T z <n)~a 

1B7 NEXT n 

188 DATA 5,12,17,22,29,34,3®,46 
, o 1,36,6 , 63 

200 GO TG 300 

230 RESTORE 250 
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NEXT 
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DATA 
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DATA 
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256 

DATA 

"d",24 
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24 
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DATA 


1,3,7,7,3,1,0 

260 

DATA 
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.L 4 „. J ,1 ■ N £ .i* ,£*. “ j¡ 4*. é(L “ 

192, 1 

28, 0 



262 

DATA 

M g",0, 

0,0,0,0,24,60,12 

6 




264 

DATA 

"h",12 

6,60,24,0,O,0,0, 

266 

DATA 

"i %0, 

112, 120,124,62,3 

0,14, 

1 



268 

DATA 

M »» 

J $ U ? 

14,30,62,124,120 

,112, 

128 



270 

DATA 

n. » i 

r ; - * * j 

14,30,62,124,120 

i i o 

, i ,i , 

0 



*-yj J-- 

DATA 

n | n j 

8,112, 1.20, 124,62 

,30,14,0 



274 

DATA 

"m",0, 

31,63, 1.27, 102, 10 

2, 126 

, 126 



276 

DATA 

"n",0, 

248,252,254, 102, 

102, 1 

26,126 


278 

DATA 

" o ” , 0 , 

123,65,65,113,65 

,67,0 

280 

\ 

DATA 

"P M ,0, 

162,50,42,38,34, 

162, 0 

i 



OÜD 

Ahí !»? -i■ i 

DAT A 

M q M ,0, 

60 , 66 , 90 , 90 , 66 , 6 

0 , ti) 




284 

DATA 

V, 0, 

60,90, 1 26, 126,90 

, 60 , 0 

1 



’ 290 

RETURN 


300 

CLS 



380 

FOR s 

=0 TO 

9 STEP 9: FDR n= 


O TO 21: PRINT AT n,s; " D" : NEXT 
n: NEXT s 

385 FÜR n=0 TO 21 STEP 21: PRIN 
T hT n. 1 a " DDDDDDDD " i NEXT n 
390 FDR n~l TÜ 20: PRINT AT n,l 
; "■■■■■i" : NEXT n 
400 FDR n~1 TG 7: PRINT PAPER 
2; AT n, 20; “ 11 : NEXT n 

410 FÓR n~14 TO 20: PRINT PAPE 
R 4¡AT n,20;" ": NEXT n 

420 FOR n = íO TO 11: PRINT PAPE 
R 1; AT n, 11; 11 " : NEXT n 

430 FDR n—10 TO 11: PRINT PAPE 
R 6;AT 0,245" NEXT n 

440 INK 1: LET eme=0¡ FOR n*144 
TG 166: PLOT n,66+eme: DRAW 0,4 


4-(2#eme): LET erne :i =eme-+-1: NEXT n 
450 INK 6: LET eme=Ü: FDR 0=190 
TÜ 168 STEP —1: PLOT n,66+emes 
DRAW O,44-í2#eme): LET eme=eme+l 
; NEXT n 

460 INK 4; LET eme-O: FOR n=64 
TO 80: PLOT 146+eme,n: DRAW 44-í 
2*eme),O: LET eme=eme+1: NEXT n 
470 INK 2: LET eme=0¡ FDR n=l11 
TO 90 STER -1: PLOT 145+eme,n: 
DRAW 44-<2*eme>,O: 'LET eme=eme+l 
: NEXT n 

500 LET h= 18: FOR n=13 TO 11 ST 
EP -1: PRINT PAPER 1; INK 4;AT 
n, h; " R" : LET h=h+l: NEXT n 
502 LET h=23: FOR n=13 TO 11 ST 


EP -1: PRINT PAPER 4; INK 6;AT 
n,h;" B": LET h*h-li NEXT n 
504 LET h-18: FOR n=8 TO 10: PR 
I NT PAPER 1; INK 2;AT n,h;" B" : 
LET h=h+1: NEXT n 
506 LET h-23: FOR n-8 TO 10: PR 
I NT PAPER 2 5 INK 6;AT n , h ; " ñ" : 
LET h=h--l: NEXT n 


508 INK O: 

510 RESTORE 530 
512 FOR n=1 TO 6 
514 READ a-, b: PRINT O VER 1; AT 
a, b; " H_" 

516 FRINT OVER 1; AT a-l,b;"GL M 
520 IF 2 <n)«22 THEN PRINT hAP 
ER ó: AT 9,27; "_H" ; AT 0, 27 ; 

524 IF n = 6 THEN PRINT PAPER 1 
;'AT a,b;"_H M i¡AT a-l,b;"G" 


























1 


pogroms 


526 NEXT n 

530 DATA 13,27,11,3.1,9,27 
532 DATA 9,14,11,10,13,14 
536 RESTORE 550 
540 FOR n~1 TO 6 
542 READ a,b: PRINT OVER I;AT 
^ b ; 11 F ■* 

544 If"~ n=c THEN PRINT PAPER 4 
« £(T jj., b ; 11 E!F“ 

* 546 IF*n=3~THEN- PRINT PAPER 2 
; AT a.b: “ gr" 

548 NEXT n 

550 DATA 4,22,0,20,4,18,17,18,2 , 

i; ■ j 1 • . *- *- 

560 GO TO 800 

600 FOR n=0 TO 56 STEP 8: PL.QT 
144, n: DRAUI 48, Os NEXT n 
610 FOR n=120 TO 175 STEP 8: PL 
QT 144,n: DRAW 48,0: NEXT n 
620 FOR n=60 TO 136 STEP 8: PLO 
T n, 64: DRAW 0,48: NEXT n 
630 FOR n=200 TG 255 STEP 8: PL 
OT n,64: DRAW 0,48s NEXT n 
640 PLOT 143,0: DRAW 0,63: PLOT 
192,0: DRAW 0,63 
6'44 NEXT n 

645 PLOT 143,175: DRAW O,”63: F 
LOT 192,175: DRAW 0,-63 
650 PLOT 80,64: DRAW 63,0: PLOT 
80,112: DRAW 63,0 
655 PLOT 192,64: DRAW 63,0: PLO 
T 192,112: DRAW 63,0 
660 PLOT 80,0: DRAW 0,175: DRAW 
175,0: DRAW 0,-175: DRAW -175,0 
670 PLOT 255,80: DRAW -63,0: PL 

OT 255,96: DRAW -63,0 
680 PLOT 80,80: DRAW 63,0: PLOT 
80,96: DRAW 63.0 
690 PLOT 159, o’: DRAW 0,63: PLOT 
175,0: DRAW 0,63 

700 F’LDT 159,175: DRAW 0,-63: P 
LOT 175,175: DRAW 0,-63 
710 RETURN 

800 FOR n=15 TO 25 STEP 10 : CIR 
CLE 111,32,n: NEXT n 
805 FOR n-15 TO 25 STEP 10: CIR 
CLE 223,32, n: NEXT n 
810 FOR n= 15 TO 25 STEP 10: CIR 
CLE 223, 143,n: NEXT n 


815 FOR n=15 TO 25 STEP 10: CIR 
CLE 111,143,n: NEXT n 
820 PRINT INK 1;AT 17,13;" IJ "5 
AT 18. 13: » KL" 

825 PRINT INK 4;AT 17,27;" X J" ; 


AT 18,27;"KL 

H 


830 PRINT 

INK 

6 ; AT 3,27; " IJ"; A 

T 4,27; "KL." 



835 PRINT 

INK 

2; AT 3, 13; w XO"; A 

T 4, i 3; H K L." 



900 FOR - rT=.l 

TO 

4: PRINT PAPER 


4; INK O: AT ?+n,2;n: PRINT PAPE 
R 4; INK 7; AT 7 +n, 6 ;'W: NEXT n 
950 FOR n-1 TO 4: PRINT PAPER 
2; INK 7 \ AT 13+n, 2; n: PRINT PAP¬ 
ER 2j INK 7j AT 13+n.6:“ MN"i NEXT 
n 

960 GO SUB 600 
1000 INK O 

1010 DIM *(4) : DIM t (4) 

1020 FOR n-1 Tü 4: LET t(n)=n: L 
ET <3 (n ) -r>: NEXT n 

2000 REM TIRADA 

2001 OVER 1: PLOT 24,1.52: DRAW 7 
,4: DRAW 24,0: DRAW 0,-24: DRAW 
-7,-4: PLOT 48,152: DRAW 7,4: OV 
ER O 

2004 LET tur=0 

2008 IF tur=0 THEN PRINT PAPER 
4;AT 19,1;"TU TURNO" 

2009 IF tur =1 THEN PRINT PAPER 
2;AT 19,1;"MI TURNO" 

2015 LET cantalNT (RND*4>+7 

2020 FOR n=l TO cant 

2021 BEFP 0.03,10 

2030 LET tir®INT (PND*6>+1 
2040 GO SUR 9000+<10#tir) 

2050 PAUSE 20 

2060 NEXT n 

2061 DEEP O.5,-20 


2065 

IF 

COSIst~l 

THEN 

GO 

TO 300 

0 

2067 

IF 

cosí es ®1 

THEN 

GO 

TO 700 

0 

2070 

IF 

comíet=Q 

THEN 

GO 

TÜ 250 

0 

2080 

IF 

comí es =0 

THEN 

GO 

TO 270 

0 

2100 

IF 

tur=0 THEN GO 

TO 

3000 

21 10 

IF 

tur®! THEN GO 

TO 

7000 










2500 REM PRIMERA TIRADA JUGADOR 
2510 LET comiet-l 
2520 IF tir<>5 THEN LET t(1)=9+ 
tir: LET tur-li GO TO 2600 
2530 IF tir-5 THEN LET t(l>=9: 
LET t(2)=9; LET turril 60 TO 265 
0 

2600 PRINT AT y<t (1),1 ),k< t (1 > , 1 
> í " O" 

2605 60 SUB 600 
2610 LET c ít U> )=11 
2620 IF <t(i>-4><10 THEN PRINT 
PAPER 4; INK 0; AT 8,6; "0*‘$ (t (1) 
-4) 

2630 IF <t <1)-4)>®10 THEN PRINT 
PAPER 4; INK 0;AT 8,6;(t(l)-4) 

2635 IF tir=6 THEN LET seist=l: 
LET cosí et=l: 60 TO 2004 

2636 LET casat=l 
2640 SO TO 2005 

2650 PRINT PAPER 4;AT y<t<W,l> 

,k ít (1) , n ; "Ol'iAT y <t Í2> ,2) (t < 

2), 2); «• oy 

2655 GO 3UB 600 

2660 LET c ít ¿1)> = 13 

2670 PRINT PAPER 4$ INK 0;AT 8, 

6;"O";<t íl)-4> 

2675 PRINT PAPER 4; INK OjAT 9, 
6; "O"; (t(2)-4) 

2680 LET casst-2: GO TO 2005 
2700 REM PRIMERA TIRADA SPECTRUM 
2710 LET comies=l 

2770 IF tiros THEN LET s íl) =43 
+tir: GO TO 2800 

2730 IF tar=S THEN LET sil>=43: 

LET s(2)=43: GO TO 2900 
2800 PRINT AT y<s(1>,1>,x(»<]>,1 
>; " R" 

2805 GO SUB 600 
2810 LET c ísí1))=1 
2815 LET r í1)=1 

2820 PRINT PAPER 2; If-JK 7;AT 14 
,2í“1"jAT 14,6; ís(1> —4> 

2825 INK O 

2830 TF tí r=6 THEN LET spís 5=1¡ 
LET cosies=l: LET tur=l: 60 TO 
2005 , 

2850 LET casase—1: GO TO 2004 
2900 PRINT PAPER 2; INK OjAT yí 
s (1 > , 1 > ,íí í’s< 1) , 1 > ; "R!'; AT y <s<2> , 


2 > „ X 

(s í2>,2);" R" 



2905 

GO SUB 600 



2910 

LET c (s(1> > =3 



2916 

LET r (1> — 1: LET 

r í2) 

= 1 

291 S 

PRINT PAPER 2; 

INK 

7;AT 14 

,6; í: 

E íl>-4 > 



2919 

PRINT PAPER 2; 

INK 

7 ; AT i 5 

t ó;ísí2>-4> 



2920 

INK 0 



2930 

LET casass=2: GO TO 

2004 

3000 

REM TIRADA DEL 

JUGADOR 

3001 

IF tir< >6 THEN 

LET 

cosí et= 


O 

3003 LET perst=0: LET tras=0: LE 
T pos=l: LET contt=0 

3005 IF tir=5 THEN GO TO 5000 

3006 IF tir=6 THEN LET seist=se 
i st+1 

3007 IF seist=3 THEN LET seist= 
O: SO TO 4610 

3008 FOR n=1 TO 4: IF t(n><5 THE 
N LET contt=contt+l 

3010 NEXT n 

3015 IF con11. —4 THEN LET tur = l: 
GO TO 2008 

3016 IF eontt=0 AND tir=6 THEN 
LET tir=7 

3017 DIM h(4) 

3020 INPUT "Que ficha mueves ? 

»' • f $ 

3021 IF CODE f$<48 OR CODE f*>52 
THEN GO TO 3020 

3022 LET fic=VAL f* 

3023 IF fic=0 THEN IF tir=6 OR 
tir=7 THEN GO TO 2004 

3024 IF fie =0 THEN LET tur»l: G 
O TO 2008 

3025 IF tifie)=99 THEN PRINT *0 
;"Esta ficha termino": PAUSE 25: 

: GO TO 3020 

3026 LET paso=0 

3027 FOR n=tífic)+l TG tCfic)+ti 
r 

3028 IF c <n> =3 OR c(n)>12 THEN 
LET paso=l 

3029 NEXT n 

3030 IF paso=l THEN GO TO 3600 

3044 LET ant=t(fic) 

3045 IF b nt < 5 THEN PRINT ^ 0; "Es 








Vi 


rtsycums 


ta en casa": PAUSE 100: G0 TD 30 
20 

3060 IF t (-f i c) +t 1 r >80 THEN PRIN 
T “O;"Te sales": PAUSE 100: 60 í 
G 3020 

3080 LEI t í f i c ) =t (f i c;) +1 i r 
31.00 IF c <*nt > =11 THEN LET pos» 
1* LET c( ant )-Os Gü TO 3140 
3105 IF c (ant ) -12 THEN LET pos- 
2: LET cíant)=0» GÜ Tü 3140 
3110 IF c <ant) = 1 3 THEN LET pos= 
la LET c(ant) =12: GQ TQ 3140 
3115 IF c(ant)=21 THEN LET pas= 
la LET c(ant>=2: Gü TO 3140 
3120 IF C! (ant. ) =22 THEN LET pos= 
2: LET c:(*nt) = l 
3140 LET seg=Os FOR n*l Tü 12 
3145 IF ant-4=ü(n) THEN LET seg 
=n: LET n = 12 

3150 NEXT n 

3151 LET pap=7: LET ppap~7 

3154 IF t(fio)>72 THEN LET pap = 

4 

3155 l'F ant >72 THEN LET ppap=4 

3165 IF seg=0 THEN PRINT PAPER 
ppap; A T y (ant., pos) ,;< (ant., pos) ; ’’ 

ta 

3166 IF seg>0 THEN GD TD 4000 
3170 IF tifie)=80 THEN GO TO 89 
00 

3200 IF c(t(fic))=l THEN LET pp 
=1: BEEP 1,1: GO Tü 6000 
3210 IF c(tifie))=2 THEN LET pp 
=2: BEEP 1,20: GO TO 6000 
3220 LET pos=l 

3225 IF c <t í fic))«O THEN LET c( 
t(fie))=11: LET pos=l: 60 TO 330 
O 

3230 IF cit(fie))=1 THEN LET c( 
t(fic) > =22s LET pos=2: GO TO 330 
O 

3240 IF e(tifie))=2 THEN LET e( 
tifie))=21: LET pos=l: GO TO 330 
O 

3255 IF c(tifie))=11 THEN LET c 
(t <fic)> =13: LET pos=2: GO TO 33 
00 

3260 IF c(t(fic))=12 THEN LET c 
(tifie))=13: LET pos=l: 60 TO 33 
00 


¿300 PRINT PAPER pap; OVER 1;AT 
y (t (fic),pos),x <t(fic),pos);" o" 
3301 GO SUB 600 

3305 IF <t (f ic)-4K 10 THEN PRIN 
T PAPER 4; INK 0;AT 7+fic,6;"O" 
; (tifie) --4) 

3310 IF (t. (fie)-4) >=10 THEN PRI 
NT PAPER 4; INK O;AT 7+fic,6;(t 
(fic>-4) 

3320 IF tir=6 GR tir=7 THEN GO 
TÜ 2004 

3350 IF tir(6 THEN LET seist=0 
3500 LET tur=1: GO Tü 2005 
>•600 PRINI “0; " No puedes 

pasar" 

3605 PAUSE 20 

3607 IF tir<6 THEN LET seist=0 

3610 LET h(fic)=1 

3615 LET vuel*0 

■.-* O FOR n=l TO 4 

3625 lF t(n)>4 AND h(n)=0 THEN 

LET vue1=1: LET n=4 

3630 NEXT n 

3700 IF vuel=1 THEN GO TO 3020 
3705 BEEP I,1 
3707 PAUSE 100 

3710 LET paso=0; LET tur~l: GO T 
O 2008 

4000 REM REO. DE SEGUROS 

4001 IF z (seg) =5 THEN L.ET pap=4 
: GO TO 4010 

4003 IF z (seg>=22 THEN LET pap = 
6: GO TO 4010 

4005 IF 2 iseg)=39 THEN LET pap= 
2: GO TO 4010 

4007 IF z(seg)=56 THEN LET pap= 
1: GD TÜ 4010 

4008 LET pap=7 

4010 LET cog=0: LET rec=0 

4015 FOF, n = 1 TD 24 

4020 IF z (seg)=k <n) THEN LET co 

g=n: LET n=24 

4030 NEXT n 

4050 IF cog<13 THEN GO TO 4100 
4060 IF cog>12 THEN GO TO 4220 
4100 FOR n=1 Tü 2 

4110 IF i k icog+24))=pos THEN LE 
T rec=n 

4115 LET cog=cog+6 










4120 NEXT ri 

4130*IF rec=1 THEN 60 TO 4200 
4135 1F rec=2, THEN GG TG 4210 
4200 PRINT PAPER papjAT y<ant,p 
os) . (ant 3 pos) ; 11 |H" 

4205 L.ET pap=7s GG SUB 600 

4206 IF perst=l THEN GO TO 4800 

4207 IF perss=l THEN GG TO 4895 

4208 IF tras=0 THEN 60 TG 3170 

4209 IF tras»1 THEN GG TG 7405 

4210 PRINT PAPER pap;AT y(ant,p 
os) f í ant, pos) ¡ 11 G* 1 

4215 LET pap=7s 60 SUB 600 

4216 IF perst=l THEN GO TO 4600 

4217 IF perss=1 THEN GG TO 4895 

4218 IF tras—O THEN GO TO 3170 

4219 IF tras»1 THEN GO TO 7405 

4220 FQR n = l TO 2 

4225 IF’ <k(co4+24)>«pos THEN LE 
T rec=n 

4230 LET cog=cog+6 
4240 NEXT n 

4245 IF r&c-t THEN GO TO 4270 
4250 IF rec=2 THEN GD TO 4330 
4270 PRINT PAPER papjAT y(ant,p 
os), >í (ant, pos) j "_E" 

4295 LET pap=7¡ Gü SUB 600 

4300 IF perst=1 THEN 60 TO 4800 

4301 IF perss=1 THEN 60 TO 4895 

4304 IF tras=0 THEN GO TG 3170 

4305 IF tras=1 THEN GO TG 7405 
4330 F'RINT F'AF’ER pap;AT y(ant 3 p 
os) í ant, pos> ; *' P. 1 * 

4495 LET pap=7i GQ SUB 600 
4500 IF per st. = 1 THEN 60 TO 4800 




4501 IF perss=l THEN 60 TO 4895 

4504 IF tras=0 THEN GO Tü 3170 

4505 IF trasvi THEN 60 TO 7405 
4600 REM TRIPLE SEIS 

4610 LET perst. = l 

4615 INPUT “Que Ficha pierdes ?" 

i P* 

4616 IF CODE p*<49 OR CODE p*>52 
THEN 60 TO 4615 

4617 LET Fip=VAL p* 

4620 IF tífipXS THEN PRINT *0; 
"Esa Ficha ya esta en casa“: F'AU 
SE 30i 60 TG 4610 
4625 LET ant.®t<Fip) 

4630 LET t(Fip)=Fip 

4640 PRINT PAPER 4; INK 7;AT 7+ 

Fip, 6; “ mn" 

4650 IF c (ant > — 11 THEN LET pos» 
1: LET c <ant)=0: 60 TO 4750 
4655 IF c(ant)=12 THEN LET pos», 
2: LET c(ant)=0: 60 TG 4750 
4660 .IF c(ant) = 13 THEN LET pos» 
1: LET c(ant)=12: GO Tü 4750 
4665 IF c(ant)=21 THEN LET pos» 
1: LET c(ant)=2: GO TO 4750 
4670 IF c(ant)=22 THEN LET pos= 
2: LET c(ant)=1 
4750 LET seg=0: FOR n=). TO 12 
4755 IF ant*4=2 (n) THEN LET seg 
=n; LET n-12 
4760 NEXT n 

4770 if seg >0 THEN 60 TO 4000 
4790 IF seg=0 THEN F'RINT AT y (a 
nt, pos) , íí ( ant, pos) ; " " 

4"’95 GO SIJB 600 

4797 LET casat=casat-l 

4800 LET tur»1: 60 TO 2005 

4810 REM TRIPLE SEIS 

4815 LET ans=0: LET sas=Ot LET p 

erss=l 

4820 FOR n=4 TO 1 STEP -1 
4825 IF sin)>4 THEN LET sas-n: 
LET n=l 
4830 NEXT n 

4835 LET ans=s(sas) 

4836 LET s(sas)=sas 

4837 LET r<sas)=0 

4840 IF c(ans)=1 THEN LET pos=l 
: LET c(ans)=0: GO TO 4875 
4842 IF c(ans)=2 THEN LET pos=2 


































nocpOMis 


t LET c (ans)=0: GO TO 4875 

4844 IF c(ans)=3 THEN LET pos=l 

* LET c(sns)—2: GO TO 4875 

4846 IF c(ans> *21 THEN LET pos= 

2: LET c(ans)= 111 60 TO 4875 

4848 IF c(ans)=22 THEN LET pos= 

ls LET c(ans)=12 

4875 LET seg=0: FOR n=l TO 12 

4880 IF an<s-4=z(n) THEN LET seg 

=n: LET n= 12 

4882 NEXT n 

4Q85 LET ant=ans 

4890 IF seg>0 THEN 60 TO 4000 

4892 IF seg =0 THEN PRINT AT y(a 

ns, pos) , x (ans, pos) ; " 11 

4e93 GG SUB 600 

4895 PRINT PAPER 2; INK 7;AT 13 
+sas ,6; " UN" 

4896 LET casass=casass-1 
4898 GO TO 2004 

4999 STOP 

5000 REM SALIDA DE CASA 
5005 LET nt=0 

5010 IF casat=4 THEN 60 TO 3020 

5015 IF c(9)=13 THEN GO TO 3020 

5020 FOR s=l TO 4 

5025 IF t <s)<5 THEN LET nt=S! L 

ET s=4 

5035 NEXT s 

5040 IF nt<>0 THEN LET t(nt)=9 
5042 IF nt“0 THEN GO TO 3000 
5044 LET Tic=nt 

5050 IF c(9)=3 THEN LET pp=l: 6 



O TO 6120 

5052 IF c(9)=21 THEN LET pp=2: 
GO TO 6120 

5054 IF c(9)=22 THEN LET pp=l: 
GO TÜ 6120 

5060 LET casat=casat+1 

5080 IF c (9)=0 THEN LET C<9>-11 

: LET pr=lí 60 TO 5200 

5085 IF c: (9) 1 THEN LET c<9)=22 

: LET pr=2: 60 TO 5200 

5090 IF c:(9>=2 THEN LET c (9) =21 

: LET pr = 1 : 60 TO 5200 

5145 IF c(9)=ll THEN LET c(9)=l 

3: LET pr=2: 60 TO 5200 

5150 IF c(9)=12 THEN LET c(9)=l 

3: LET pr=1 

5200 PRINT PAPER 4;AT y(?,pr),w 
(9, pr ) ; " O]' 

5205 GO SUB 600 

5210 PRINT PAPER 4; INK 0;AT 7+ 
nt., 6 ; "05" 

5900 LET tur=l¡ GO TO 2005 

6000 REM COMIDA DEL JUGADOR 

6010 LET comí dt=0: LET mov=l 

6100 FOR N=1 TO 12 

6105 IF (t(Tic)-4>=z(n) THEN LE 

T comldt=l 

6110 NEXT n 

6115 IF comí dt = l THEN IF pp = l T 

HEN LET pps=2: GO TO 3225 

6117 IF comí dt = l THEN IF pp = 2 T 

HEN LET pos 2 1 i GO TO 3225 

6120 FOR n=l TO 4 

6125 IF s (n)=t(fic) THEN LET mo 

v=n: LET n=4 

6130 NEXT n 

6135 LET s(roov)=mov 

6136 LET r(mov)=0 

6140 LET easass=casass-i 

6150 PRINT AT y < t (T i c > , pp > , x (t <T 

ic),pp);" O" 

6160 LET c(t(Tic>)"pp+10 

6165 PRINT PAPER 2; INK 7;AT 13 
+mov, 6 ; " HN " 

6166 GO SUB 600 

61.67 IF t (Tic) >=14 THEN PRINT 
PAPER 4$ INK O;AT 7+Tic, 65 t(T1c) 
-4 

6168 IF t (Tic) <14 THEN PRINT F’ 






















































APÉR 4; INK O;AT 7+fie,6;"O";t <f 
i c) -4 

6170 LET tir-20: GO TO 3020 
7000 REM TIRADA DEL SPECTRUM 
7003 LET perss=0: LET pap=7: LET 
tras=l: LET tics=0: LET pos=l: 
LET conts*0 

7005 IF tir-5 THEN GO TG 7500 

7006 IF tir=6 THEN LET seiss=5e 

i. SS+ 1 

7007 IF seass=3 THEN LET seiss= 
O: GO TO 4810 

7008 FOR n = l TO 4i IF sin)<5 THE 
N LET conts=c:onts+l 

7010 NEXT n 

7015 IF conts=4 THEN LET tur=0: 

BEEP 1,20: GO TO 2004 
7030 IF conts=0 AND tir*6 THEN 
LET ti r—7 

7100 DIM b i 4): DIM o<4>: DIN q(4 
) : DIN p(4) 

7110 FOR n=l TO 4 
7120 FOR 5=1 TO 12 
7130 IF i (s (n) -4)+Ur> ~z (s) THEN 
LET o(n)=1 
7140 NEXT s 
7150 NEXT n 

7155 IF tir<9 THEN -SO TO 7200 
7160 FOR n=l TO 4 
7180 IF « < n) <39 AND (s(n)+tir) >3 
8 THEN LET trus=is(n)+t1r)-38: 
LET b ín)=78+trus 

7190 IF b in)< = 37 THEN LET b(n> = 
O 

7195 NEXT n 

7200 IF t.i r = 6 ÜR tir=7 THEN 60 
TO 9200 

7230 FOR w=l TG 4 

7232 FOR n=s(w)+l TÜ s(w)+tir 

7233 IF s <w)™72 THEN GO TO 7236 

7234 IF n>87 THEN LET qiw)=l: G 
O TG 7240 

7236 IF n<87 THEN IF c(n)=3 OR 

c <n)>12 THEN LET q(w>=l 

7238 NEXT n 

7240 NEXT w 

7250 FOR j=l TO 4 

7255 IF b (j) =0 THEN IF r<¿.)=l A 
ND q(j)=0 THEN IF o( j )=0 THEN 


IF c<s<j>+t.ir)=ll OR cís(j)+tir) 

=12 THEN LET píj)=4 

7260 IF s(j)+tir=87 THEN LET p< 

J >-2 

7265 NEXT j 

7280 FOR n=l TO 4 

7282 IF pin)=4 THEN LET tics=n: 

LET n=4 
7284 NEXT n 

7286 IF t i es >0 THEN GO TO 7320 
7290 FOR n=l TO 4 
7292 .IF p (n) =2 THEN LET Tics=n: 
LET n=4 


7294 NEXT n 

7296 IF tics>0 THEN GQ TO 7320 

7300 FOR n=l TO 4 

7301 IF tir=20 THEN IF b(n)=0 T 
HEN IF r(n> = 1 AND q(n)*0 THEN 
IF 5 Cn> =72 THEN LET tics=n: LET 

n=4¡ 60 TG 7304 

7302 IF b'r.) =0 THEN IF sin) 099 
THEN IF r (n)=1 AND q(n)=0 THEN 

IF s <n) +t i r<87 THEN LET t i cs= 
n: LET n=4 
7304 NEXT n 

7314 IF t i. cs=0 THEN IF tir=6 OR 
ti r—7 THEN LET tur=l: 60 TÜ 20 

08 

7315 IF ti. c 5=0 THEN GO TÜ 2004 
7320 LET ans=s (fi.es) 

7330 LET sities) =s < t i c.5) +1.i r 
7335 LET trus=0 

7337 IF ans>79 THEN GO TÜ 7360 
7340 IF ans<39 AND sities)>33 TH 
EN LET tr 1.15=5 < + i. es) -38: LET s(t 
t es)=79+1rus 

7352 TF sities)>72 AND trus=0 TH 
EN LET s(ties) a s(fíes)-68 
7360 TF e < ans)=1 THEN LET pos=l 
: LET c(ans)=0: 6G TO 7370 
7362 IF c(ans)=2 THEN LET pos=2 
: LET e (ans)=0: GG TO 7370 
7364 IF c(ans)=3 THEN LET pos=l 
: LET c:{ans)-2: GO TQ 7370 
7366 IF c iaris) =21 THEN LET pas= 
2# LET c(ans)=11: GO TO 7370 
7368 IF c(ans)=22 THEN LET pas= 
1: LET c (ans)=12 
7370 LET seg=0* FOR n»l TO 12 
7375 IF ans-4=2(n) THEN LET seg 







V, 


\<80pMÜjS 


=n: LET n=12 
7380 NEXT n 
.7301 LET ppap=7 

7385 IF «(fies)>79 THEN LET pap 
=2 

7387 IF ans>79 THEN LET ppap=2 
7390 IF seg-0 THEN PftINT PAPER 
ppap? AT y(ans,pos), k< ans,pos):" 

II 

7400 IF seg>0 THEN LET ant=ans: 
G0 TO 4000 

7405 IF sííícs)-87 THEN GO TO 8 
800 

7420. IF c (s(fics) > = 11 AND oífics 
> ~0 THEN LET ps=l: GO TO 8500 
7425 IF c (s(fics))=12 AND □(fies 
>=0 THEN LET ps=2: GO TO 8500 
7430 IF c<s(fics))«O THEN LET c 
(s(fics))=l: LET pos*1 i GO TO 74 
80 

7435 IF c(s(fics))=1 THEN LET c 
(s(fics) )“3s LET pos=2: GO TO 74 
80 

7440 IF c<s(fies>)=2 THEN LET c 
(s(fies))=3: LET pos=l: 60 TO 74 
60 

7450 IF cís(íics))“11 AND pifies 
)=t THEN LET pos=2: LET c(s(fic 
s) )=21 : GO TO 7480 
7460 IF c(s(fics)>=12 AND pifies 
)*1 THEN LET pos=l: LET c(sífie 
s> )=22: GO TO 7480 

7480 PRINT F’APER pap;AT yísífic 
S),pOS) ,í¡ (s(fics) ,pOS) 5 11 p" 

7481 GO SUB 600 

7482 IF (s (fies) -4) <10 THEN F'RI 
NT PAPER 2; INK 7;AT 13+fics,6j 
"O";(s(fics)-4) 

7485 IP (s(fies)-4)>=10 THEN PR 
INT PAPER 2; INK 7;AT 13+fics,6 
i (s <f ies) -4) 

7487 INK O 

7488 IF tir=ó OR t i r=7 THEN LET 
tur*1: GO TO 2008 

7489 IF tir<6 THEN LET seiss=0 

7490 GO TO 2004 

7500 REM SALIDA CASA DE 8P 
7505 LET ns=0 

7510 IF cas*ss=4 THEN GO TO 710 


7520 IF c(43) =3 THEN GO TO 7100 

7560 FOR n=l TO 4 

7570 IF S(n><5 THEN LET ns=n: L 

ET n = 4 

7560 NEXT n 

7590 TF ns<>0 THEN LET s(ns)=43 
: LET r (na) * 1 
7595 LET fics=ns 
7600 T F c < 43). = 13 THEN t....FT p s* 1 s 
60 TO 8605 

7605 IF c-(43>*21 THEN LET ps=l: 
GO TO 8605 

7610 IF e(43)=22 THEN LET ps=?s 
GO TO 8605 

7640 LET casass=csssss+1 

7700 IF c(43)=0 THEN LET c <43> = 

1: LET pr*t: 60 TÜ 7900 

7702 IF c(43)=1 THEN LET eí43 ) = 

3: LET pr-2: GO TO 7900 

7704 IF c (43) = 2 THEN l„ET c <43) = 

3: LET pr=1: 60 TO 7900 

7706 IF c(43)=11 THEN LET e<43> 

*21: LET pr=2s 60 TO 7900 

7708 IF c(43> *12 THEN i.ET c(43) 

=22: LET pr=l: 60 TO 7900 


7900 PRINT 

PAPER 2 5 

INK 

05AT y( 

43,pr)(43 

, pr ) j » py 


7950 PRINT 

F’AF'ER 2 J 

I NK 

7;AT 13 

+ns,ó;"39": 

INK 0 




7999 60 TO 2004 
8500 REM COMIDA DEL SPECTRUM 
8510 LET comids=0: L.ET mos-l 
8520 FDR N=1 TO 12 























8540 IF <s(ficft>-4)*x<n) THEN L 
ET c:t3núds=l 
8550 NEXT N 

8570 IF comí ds = l THEN L.ET o (fie 
s> =1: GO TQ 7450 
8605 FGR n=t TC) 4 

8610 IF t(n)-s(fícs) THEN LET m 

OS*n: LET n-4 

8615 NEXT n 

8625 LET t(mos)=mos 

8630 LET casat=casat-t 

8635 PRINT PAPER 2; INK 7;AT 13 

+fícs,6;s(fics)~4 

8640 PRINT PAPER 4; INK 7;AT 7+ 
mos, 6; 11 MN" 

8650 PRINT AT y <s (f i.es) , ps) , (s í 
■fies) ,ps) ; 11 P" 

8655 GO SUB 600 

8660 LET c <s(fi es))=ps-10 

8700 LET tir-20: GG TQ 7000 

8800 REM FINAL FICHA 

8810 LET s(fies)=99 

8830 PRINT PAPER 2; INK 7;AT 13 

+f i es,, 6; 11 OP" 

8870 LET g«ns B gans+l 
8880 60 SUB 600 

6865 IF gans=4 THEN GP TQ 9500 
8890 LET 11 r -1.0: GG Tü 7000 
8900 LET tifie:) =99 
8910 PRINT PAPER 4; INK 0;AT 7+ 
fie,ó; " OP " 

8920 LET gant.=gant + l 
8930 GG SUB 600 

8940 IF gan t=4 THEN 30 TÜ 9500 
8950 LET tir“10! GO TÜ 3070 ' 
8999 STOP 
9Q00 REM OADO 
9010 PRINT AT 3,3; 

C. ";AT 5,3; " ’ " 

9015 RETURN 
9020 PRINT AT 3,3; 

" ; AT 5,3;" b H 
9025 RETURN 
9030 PRINT AT 3,3; 

C " ; AT 5,3;" 

9035 RETURN 
9040 PRINT AT 3,3; 

”;AT 5,3;"O C" 

9045 RETURN 


9050 PRINT AT 3, 3; " C_ O" ; AT 4,3;’’ 

; AT 5, 3; " C_ C" 

9055 RETURN * 

9060 PRINT AT 3,3;"O c"jAT 4,3;" 

c C," ;AT 5,3; "jC 

9065 RETURN 

9200 LET puen»=Ü 

9205 FOR n=1 TO 4 

9210 IF r: <s (n > > =3 THEN IF s<n) + 
t. i r <88 THEN IF q<n)=0 THEN LET 
puens=ns LET n=4 
9220 NEXT o 

9230 IF puensOO THEN LET fics>= 
puens: GG TQ 7320 

9240 IF puens=0 THEN 60 TO 7230 
9500 REM FINAL 

9505 IF gant=4 THEN PRINT FLAB 

H 1; AT, 8, 18; " " ; AT 9, 18; ” 

ME »’;AT 10,18;" "; AT 11,18 

HAS ";AT 12,18;" ";AT 1 

3,18;"GANADO" 

9506 IF gar>s=4 THEN PRINT FLAS 

H 1;AT 8,18;" ";AT 9,18;" 

TE 11 ; AT 10,18;" "; AT 11,48 

HE ";AT 12,18;" ";AT 1 

3,18;"GANADO" 

9508 FOR n=1 TO 13í FOR d=40 TO 

50: BEEP .01,d: NEXT d: NEXT n 

9510 FOR n=5 TO 1 STEP -1 

9515 FOR s=0 TO 21 

9525 BEEP ,01,s+30: PRINT INK n 

; OVER 1; AT s, O; 11 

9535 NEXT s 
9¿00 NEXT n 
9610 PAUSE 30 

9700 FOR n=l TQ 22; BEEP ,01,n+2 
O: PAUSE 10: RANDDMIZE USR 3190: 

NEXT n 
9710 CLS 

9750 FGR n=l TO 22: BEEP .02,n+3 
0: PAUSE 10: RANDDMIZE USR 3190: 
NEXT n 

9770 PRINT FLASH I ; AT 10,0;"Qui 
eres jugar otra partida s/n " 
9780 INPUT ;yí 

9785 IF y*= H s" OR y*="S" THEN C 
LB : GO TO 150 
9800 STOP 


Él ll 


5AT 4,3;" 


c_ " ; AT 4,3; 


" C " ; AT 4,3;" 


"c C";AT 4,3;" 











10 

REM 

y********************* 

102 

REM 

^ - - - -- ~ ' 7 

* 
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50 

DIM 

q$(7,lí 


t; 




60 

DIM 

w$(1,25) 




Creación del fi 


70 

DIM 

a*(900,30) 

chero 

"■ m ■ 

* • 1 



ao 

DIM 

b* < 100,30) 




Listado de un c 


90 

LET 

:■! =0 

urso 


. , 2 


i 00 

GO SUB 7000 



Listado total . 

101 






































¡Justos •esostiOMs 


El mes de septiembre ha sido el mes de la vuelta al colegio. 
Padres y chicos hacen cola en las librería, comprando el 
material; luego las matrículas... A continuación los 
profesores tienen que realizar un trabajo muy pesado. El 
programa que os presentamos ayuda a preparar e imprimir 
las listas escolares. 


% 


Una de las labores más tediosas 
en la puesta en marcha de un año 
académico es, la confección de las 
listas de alumnos de cada curso, te¬ 
niendo en cuenta que debemos or¬ 
denarlas alfabéticamente para des¬ 
pués proceder a separar los distin¬ 
tos grupos. 

Hay que trabajar con una gran 
cantidad de información y realizar 
las oportunas manipulaciones 
para, al final, obtener el resultado 
apetecido. 

Pero el problema se agrava si 
cuando tenemos las listas prepara¬ 
das es necesario hacer alguna co¬ 
rrección o incluir algún alumno 
que se haya despistado. 

Teniendo en cuenta que las ca¬ 
racterísticas fundamentales de los 


ordenadores son la velocidad y la 
fiabilidad para trabajar con gran¬ 
des volúmenes de información, en¬ 
carguemos a nuestro modesto 
Spectrum esta tarea. 

Este programa ha sido pensado 
para la confección de listas de cur¬ 
sos, ordenadas alfabéticamente, en 
un colegio de E.G.B., pudiendo 
adaptarse fácilmente a otro tipo de 
enseñanzas. 

Los registros estarán formados 
por los siguientes campos: 

l . er campo: Curso; tamaño: 1 ca¬ 
rácter. 

2. ° campo: Apellidos y nombre; 
tamaño: 25 caracteres. 

3. " campo: Idioma moderno; ta¬ 
maño: 1 carácter. 


4. ° campo: Religión o ética; ta¬ 
maño: 1 carácter. 

5. ° campo: Curso anterior sus¬ 
penso o aprobado; tamaño: 1 ca¬ 
rácter. 

6. ° campo: Repite sí/no; tama¬ 
ño: 1 carácter. 

Longitud del registro: 30 carac¬ 
teres. 

El número total de alumnos que 
admite el programa, dada la capa¬ 
cidad de memoria interna del 
Spectrum, es de 900. El número 
máximo de alumnos por curso es 
de 100, lo que hace posible la in¬ 
troducción de 9 cursos de un máxi¬ 
mo de 100 alumnos por curso. 

La longitud del registro está con¬ 
dicionada por la capacidad de im¬ 
presión de la pantalla y de la im¬ 
presora ZX o SEIKOSA GP-505, 
es decir, 32 caracteres por línea. 

Para poner en marcha el progra¬ 
ma procederemos en primer lugar 
a teclearlo. Finalizada esta ardua 
labor haremos una copia del mis¬ 
mo en cinta de cassette. A conti¬ 
nuación procederemos a ejecutar¬ 
lo, corrigiendo los posibles errores 


u 


Correcciqnes .. 

. 4 

Fin y Grabación 

., 5 " 

130 PAUSE O 
140 LET go=VAL INKEVÍ 
150 IF go<1 AND go>5 THEN GQ T 
O 130 

160 GD TO 1000*go 
999 

1000 REM ########**#**####*##*#* 

*#* CREACION FICHERO #* 

t 4^* vjc Jjí £ # í 3|t ¿Jí # )|í 4^ 4^ 

1001 

1010 CLS RRINT AT 0,5;"CREAD10 
N DEL FICHERO" 

1020 RRINT AT 2,3;"PARA SALIR RE 
PITE NUMERO" 


1030 GO SUB 7200 
1040 LET k$=" 

II 

1050 LET q=0i LET w=0: LET e=0: 
LET u—Oi LET t=0: LET y-Oi LET a 
1=0 

1060 RRINT AT 7,14;" ";AT 7,2 
8;" ";AT 1 1,3; k S; A T 13, 11;" ’ " 

;AT 13,26;" ";AT 15,11;" ";AT 

15,26;" " 

1070 RRINT BRI6HT 1;AT 4,5;“ U1 
timo numera " 

1080 LÉT r=x 

1090 INPUT "N. alumno ";x 
1095 IF x<=r-l THEN GO TO 1090- 
1100 IF THEN GO TD 110 

1110 RRINT AT 7, 14; ¡<: IF al = 1 TH 
EN GO TO 1230 

















ramos 


que hayamos cometido. Una vez 
depurado lo grabaremos de nuevo, 
teniendo de este modo una copia 
del programa original, al que po¬ 
der recurrir en caso de necesidad. 
Para grabarlo es necesario hacerlo 
con «autorun» en la línea 100, es 
decir, SAVE «nombre» LINE100, 


para ejecutar el programa cuando 
tenga datos, pues no los borraría. 

En caso de necesidad hay que utili¬ 
zar el comando GOTO 100; sola¬ 
mente ejecutaremos el programa 
con RUN para inicíalizarlo y co¬ 
menzara grabar los datos, es decir, 

£1 trabajo de introducir y 
modificar las listas de 
alumnos, una tarea repetitiva 

El procedimiento que utiliza el 
programa para almacenar ios datos 
es el de introducirlos en variables 
subindicadas, vectores o listas, 
a$(900,30) para el archivo general 

y b$( 100,30) para el archivo dei 
curso. Teniendo en cuenta que el 
comando RUN borra los valores 
de las variables no puede utilizarse 

la primera vez que lo empleemos. 

Ya está tecleado el programa. Lo 
hemos almacenado en cinta y que¬ 
remos comenzar a utilizarlo. Pul¬ 
samos RUN y elegimos la opción 1 
«Creación del fichero». Termina- 


1120 INPUT "Curso "s q* C1)s PRINT 
AT 7,28;q*(l) : IF q-1 THEN GO 
TO 1230 

1130 POKE 23658,0: INPUT "Apelli 
dos y nombre, máximo 25 carácter 
es "jwS(l): POKE 23658,8 
1140 PRINT AT 11,3;w*<1>: IF w=l 
THEN GO TO 1230 
1145 IF VAL q$(l><6 THEN LET qS 
<2>^"* M : GO TO 1160 
1150 INPUT "Ingles (I), Francés 
(F) H ;q*(2): IF q*<2)0" I “ AND q 
$(2K>"F" THEN BEEP .5,-12: GO 
TO 1150 

1160 PRINT AT 13,11.; qí (2) i IF e= 
1 THEN GO TQ 1230 

1170 INPUT "Religión (R), Etica 
<E> "; q$ (3) : IF q* (3> < > M R" AND q 
*<3><>"E" THEN BEEP .5,-12: 60 
TO 1170 

1180 PRINT AT 13,26;q*(3): IF u= 
1 THEN GO TO 1230 
1185 IF q$ <1)="1" THEN LET qS(4 
> ="*■': GO TO 1200 

1190 INPUT "Curso anterior: Apro 
bado (A), Suspenso (S) 11 ;qS(4): 
IF q$(4K>"A" AND q$(4X>"S" THE 
N BEEP .5,-12: GO TO 11?0 
1200 PRINT AT 15,ll;qSí4): IF t= 
1 THEN GO TO 1230 
1205 IF q$ < 1) = " 1" OR q^íl)®'^' 1 o 
R q*(l)* M 4" THEN LET q*<5)="*": 
60 TO 1220 

1210 INPUT "Repite el curso S/N: 

n iq$<5); IF q*(5)<>"S" AND q$(5 
><>"N" THEN BEEP .5,-12: GO TO 
1210 

1220 PRINT AT 15,26;q*(5): IF y= 


1 THEN GO TD 1230 
1230 INPUT "TODO CORRECTO? ÍS/N) 
";q$(6>: IF qíí6)="S" THEN GO 
TO 1340 

1240 IF q$(ó)="N" THEN INPUT "D 
ame el n. de casilla incorrecta 
"fine 

1250 IF q$(6>< >“S" AND q*(6ÍO"N 
" THEN BEEP .5,-12: 60 TO 1230 


1260 IF inc=l 
Tü 1090 

THEN 

LET 

al =1 

: GO 

1270 IF 
TO 1120 

i nc=2 

THEN 

LET 

q=l: 

GO 

1280 IF 
TO 1130 

inc-3 

THEN 

LET 

w=l: 

GO 

1290 IF 
TO 1150 

i nc=4 

THEN 

LET 

e= 1: 

60 

1300 IF 
TO 1170 

i nc=5 

THEN 

LET 

u=t: 

60 

1310 IF 
TO 1190 

i nc=6 

THEN 

LET 

t=l: 

60 

1320 IF 
TO 1210 

i nc=7 

THEN 

LET 

y=l: 

GO 

1330 BEEP .5,- 

-12: GO Tü 

1240 



1340 IF q»(5)="S" THEN LET q$(5 
) = " r " 

1350 IF q*(5)«"N" THEN LET qí(5 

V —ii *1 

1360 LET a$ <x ) =q$ (1) +tw*< i) +q*<2> 
tqíÍ3)+q*(4) +q¡M5) 

1370 60 TO 1050 

1999 

2000 REM *********************** 

**** LISTADO CURSO **#* 
*********************** 

2001 

2010 BEEP 1,12: CLS : PRINT BRI 
6HT 1; AT 7,5; 


II 















El programa nos pide el 
Idioma Moderno sólo si el 
alumno estudia segunda 
etapa de EGB 


do el trabajo de introducción de 
datos, por este día, vamos a la op¬ 
ción 5 «Fin y Grabación»; en esta 
opción procederá a grabar en cinta 


de cassette el programa con los da¬ 
tos introducidos y, posteriormente, 
a verificar la correcta grabación, 
dándonos en todo momento las 
instrucciones necesarias. Nos pre¬ 
guntará si todo ha sido correcto, 
contestando «no» repetirá el pro¬ 
ceso haciendo una segunda graba¬ 
ción como copia de seguridad, 
contestando «sí» el programa fina¬ 
liza. 

Para continuar cargando datos 
at programa es necesario leer el úl¬ 


timo programa grabado, dado que 
tiene los datos almacenados ante¬ 
riormente. 

Creo que es importante advertir 
que el programa tarda más de tres 
minutos en grabarse, por lo que es 
necesario tener un poco de pacien¬ 
cia, En el caso de disponer de Mi- 
crodrive es fácil adaptar el progra¬ 
ma a este periférico, consiguiendo 
una mayor velocidad y facilidad de 
grabación. 

Además de las opciones ya vis¬ 


ca 


";AT 8,5;" LISTADO DE UN CURS 
0 “iAT 9,5;" 

INF’UT "codigo del curso ”;q$ 
(7) 

2020 INF'UT "nombre del curso ”;d 

í 

2030 LET q=1 
2040 FOR n=1 TO x 
2050 IF aí(n)( TÜ i)=q$<7) THEN 
GO SUS 2280 
2060 NEXT n : ■ 

2070 FOR 5—1 TO q-1 
2080 FOR m=s TO 2 STEP -1 
2090 IF b*<m>>b*<m-l> THEN LET 
m=2: GO TO 2110 

2100 LET jí=b*(m>! LET bí(m)=bí( 
m-1>: LET b*(m-1)= 

2110 NEXT mi NEXT s 
21 19 

2120 REM *********************** 

****** IMPRESION ****** 
*********************** 

2121 

2130 CLS 

2140 LET d=(32-LEN d*)/2 
2150 INPUT "Impresora S/N ";qíí6 
)s IF q$ (6) < >"S" AND q$<6K>"N" 
THEN GO TO 2150 

2160 IF qí(ó)="S" THEN DREN *2, 

II pM 

2170 PRINT TAB d;d$ 

2180 PRINT ' ' ' 

2190 FOR 1=1 TO q-1 

2200 PRINT : IF 1<10 THEN PRINT 

II II B 

2210 PRINT 1;" " ; b $ < 1 ) (2 TO ) 
2220 NEXT I 
2230 GLOSE *2 


2240 PRINT ’ " ;"Pulse una tecla 
para continuar" 

2250 FOR n=l TO qj LET b*(n>="": 
NEXT n 

2260 PAUSE O 
2270 GO TO 110 

2279 

2280 REM *********************** 

«*** MATRIZ CURSO ***** 
*********************** 

2281 

2290 LET b*(q>=a*(n) 

2300 LET q=q+l 
2310 RETURN 

2999 

3000 REM *********************** 

**** LISTADO TOTAL; **** 
*********************** 

3001 

301.0 CLS * PRINT BR1GHT 1 j AT 7, 
8;" ";AT 8,8;" LIS 


INDICE 


Creación del -fichero ..... 1 

Listado de un curso. 2 

Listado total .. 3 

Correcciones ............. 4 

Fin y Grabación . 5 






















tas, el programa dispone de otras 
tres: «Listado de un curso», que 
permite listar alfabéticamente los 
alumnos de un curso con sus datos; 
«Listado total», lista de los datos 
indicados en el mismo orden de 
entrada; y «Correcciones», que 
permite modificar los errores que 
hayamos cometido al introducir 
los datos. 

Comentaremos detenidamente 
la opción «Creación del fichero»: 
en la última línea de la pantalla, al 


objeto de poder comprobar que 
sean correctos. El número de 
alumno será el de matrícula, corre¬ 
lativo desde el I al 900. Para saber 
cual ha sido el último número uti¬ 
lizado, y no repetirlo, el programa 
nos lo indica. Basándonos en la 
imposibilidad de duplicación del 
número de alumno, saldremos de 
esta opción repitiendo el último 
empleado. El idioma moderno so¬ 
lamente nos lo preguntará en los 
cursos del ciclo superior. Solamen- 


Puede manejar hasta 900 
alumnos, con un máximo de 
100 por curso 


te nos preguntará si es repetidor en 
los cursos en que puede suceder. 
Una vez introducidos los datos 
de un alumno, nos preguntará si 




TADO TOTAL ";AT 9,6;" 

«I 

3015 INPUT "Todos los datos 1M, T" 

", parte de ellos ""P.. ;q*(6 

> : IF qS (6) < >"T W AND qStóKVP" 
THÉN GO TO 3015 

3017 LET b 1 = 1 s LET b2=:<s IF qS<6 
) — " P 11 THEN INPUT "Desde el nume 
ro "jbls INPUT "AI numero ";b2: 
IF b2 THEN LET b2=x 

3020 INPUT “Impresora S/N ";q$<6 
): IF qí(6)< >"S" AND qííóXVN" 
THEN GO TO 3020 

3030 IF q*(ó>=“S" THEN OPEN A 2, 

II p II 

3040 CLS : PRINT TAB 8;"LISTADO 
TOTAL" 

3050 PRINT 

3060 FOR n=b1 TO b2 



ATENCION 


En caso de que este programa se 
ROMPA en cualquier momento y 
quiera continuar ejecutándolo 

nunca pulse RUW pulse GOTO 100 


PULSE UNA TECLA PARA CONTINUAR 


3070 PRINT n; " “:a$ín> 

3080 NEXT n 
3090 GLOSE 

3100 PRINT ’ 7 7 ; " Pulse una tecl 

a para continuar"! PAUSE O 
3110 GO TO 110 

3999 

4000 REM *********************** 

**** CORRECCIONES ***** 
*********************** 

4001 

4210 CLS : PRINT AT 1,8: 

4220 PRINT AT 2,8; "■ CORRECCIONES 

V 1 

4230 PRINT AT 3, 8; " 

4240 GO SUB 7200 
4250 INPUT "N. alumno? ";c 
4260 LET qt<l)=a*(c>< TO 1)s LET 
wí(1)=a*(c><2 TQ 27)¡ LET qS(2> 
= a$ íc) (27 TO 27): LET qS<3)=aSíc 
) (28 TO 28): LET qSÍ4)=aS<c) (29 
TO 29) i LFT qS(5)=aS<c>(30 TO -30 
)í IF qí(5)=" " THEN LET q*(5)= 
" N " , 

4265 IF qí(5)="r" THEN LET qS(5 
) ="S" 

4270 PRTNT AT 7,14;c;AT 7,28;q$( 

1>;AT 11,3;wS í 1);AT 13,ll;q*(2); 
AT 13,26;qS(3i;AT 15,11;qS<4);AT 
15,26;qí(5) 

4280 INPUT "TODO CORRECTO? (S/N) 

" ;qS(ó) i IF q$(6)="S" THEN GO 
TO 4390 

4290 IF q $ ( ó ) fC> " S " AND qí(6K>"N 
" THEN BEEP .5,-12: GO TQ 4280 
4300 INF'UT "Dame el n. de casi 11 


6 ! 

























son todos correctos y, en caso de 
tener algún error e indicarle que 
no, nos reclamará el número de ca¬ 
silla incorrecta, para proceder a 
efectuar la oportuna corrección. 

Por último, nos reclama el nú¬ 
mero de alumno, repitiéndose el 
proceso. Para salir de esta opción, 
repetiremos el último y el progra¬ 
ma vuelve al INDICE. 

En la opción «Listado de un cur¬ 
so», nos pedirá el código y el nom¬ 
bre del curso. Nos preguntará si 


Se puede imprimir una lista 
provisional, corregir los 
errores y sacar listas 
ordenadas inmediatamente 


queremos que el listado salga por 
pantalla o por impresora. 

Toma del fichero principal los 
datos de los alumnos del curso in¬ 


dicado, los introduce en el fichero 
de curso, los ordena alfabética¬ 
mente y los imprime. Habida 
cuenta que la ordenación la realiza 
antes de la impresión de los datos, 
es posible el incluir un alumno en 
el último momento en el fichero 
principal y obtener inmediata¬ 
mente la lista perfectamente orde¬ 
nada incluido el nuevo alumno. 
Finalizado el proceso retorna al 
INDICE. 

En la opción «Listado total». 


a incorrecta inc 
431.0 IF i nc = l TREN FRINT BR1GH 
T 1 ;AT 19,1;" El numero no puede 
cambiarse ": BEEP 2,24: FRINT A 
T 19 1 * " 

": 60 TO 4280 

4320 ÍF inc=2 THEN INPUT "Curso 
"Sqfctl): FRINT AT 7,28;q$<l): G 
0 TO 4280 

4330 IF inc=3 THEN POKE 23658,0 
: INPUT "Apellidos y nombre, max 
Imo 25 caracteres";w$<1): FRINT 
AT 11,3;w* f1>: POKE 23658,8 
4340 IF inc=4 TREN INPUT "Ingle 
s (I), Francés (F) PRIN 

T AT 13, 11;q£<2) : IF q*(2)= ,, I M O 
P q*(2)="F H THEN GO TO 4280 
4345 IF q# (2) < > ,, F" AND qí<2»<>"I 

" AND q* (2) < >***" THEN BEEP .5,1 
2: GO TO 4340 

4350 IF inc-5 THEN INPUT "Relig 
ion (R), Etica <E) ";q$<3>: PRIN 

T AT 13,2ó;q$<3): IF q*(3>- H R" O 
R q$(3>="E" THEN GO TO 4230 
4355 IF q$ (3)< >"R" AND q*(3)<>"E 
" THEN &EEP .5,12: GO TO 4350 
4360 IF inc=6 THEN INPUT "Curso 
anterior: Aprobado ÍA), Suspens 
o (S) ";qs(4): PRINT AT 15,11;qí 
<4>: IF qí(4i="A" QR q*(4)»"S'' T 
HEN GO TO 4280 

4365 IF q*(4) <>"A" AND q$(4K>"S 
" AND q*í4)<>"*" THEN BEEP .5,1 
2: GO TO 4360 

4370 IF inc=7 THEN INPUT "Repit 
e el curso S/N ";qS(5): PRINT AT 
15,26; q$ (5) 5 IF qS<5)="S" OR qí 
Í5)—"N" THEN GO TO 4280 


4375 IF q$(5K> ,, S" AND qS(5X>"N 
” and q*<5) <>"*'• THEN BEEP .5.1 
2: GO TO 4370 j 

4380 BEEP .5,12: GO TO 4280 
4390 IF q*í5)="S" THEN L.ET q$(5 
) = " r " 

4400 IF qS(5)«"N" THEN LET qí<5 
) 11 14 

4410 LET a*<c>=qS<U+w*<l)+qS<2) 
+qí<3>+q*<4)+q$<5> 

■4420 INFUT "MAS CORRECCIONES? 3/ 
N ";qs<6)¡ IF qS(6)< >"S" AND q$í 
6)< >"N" THEN GO TO 4420 
4430 IF q$(ó)="N" THEN GO TO 11 
O 

4440 FRINT AT 7,14;" " ; AT 7,2 

8;" ";AT 11,3;k»jAT 13,U;" " 

;AT 13,26;" " ; AT 15, 11 j " " ; AT- 

15,26;" " 

4450 GO TO 4250 

4999 

5000 REM *********************** 

****** GRABACION ****** 
*********************** 

5001 

5010 LET pt=" 

II 

5020 CLS : PRINT BRIGHT l;AT 5, 
2;" desconecte la clavija EAR 
AT 9,5;p®;AT 10,5;" PREPARE EL C 
ASSETTE ";AT 11,5;p*;AT 12,5;" 

PARA GRABAR ";AT I3,5;p$ 

5030 SALE "LISTAS" LINE 100 
5040 PRINT AT 18,7;" PARE EL CAS 
SETTE BEEP 2,24: PAUSE 200 
5050 CLS : PRINT BRIGHT 1;AT 5, 
3;" conecte 1* clavija EAR ";AT 
9,5;p4;AT 10,5:" REBOBINE LA CI 



















V, 


royamos 



nos preguntará si queremos todos 
los datos o parte de ellos. Si hemos 
optado por un listado parcial nos 
preguntará el primer número a lis¬ 
tar y el último. Como en la opción 
anterior, es posible hacer un lista¬ 
do por pantalla o por impresora. 
Finalizado el proceso regresa al 
INDICE. 

Opción «Correcciones», este 
proceso es similar al de «Creación 
del fichero». Preguntará el número 


La carga del programa 

con los datos 

tarda unos tres minutos 


de alumno y escribirá todos sus da¬ 
tos en las casillas correspondien¬ 
tes. Nos preguntará si todos los da¬ 
tos son correctos, indicándole que 
no nos pedirá el número de casilla 
incorrecta y haremos las correccio¬ 
nes oportunas. Preguntará, por úl¬ 
timo, si queremos hacer más co¬ 
rrecciones o no. Contestando que 
no,retomará al INDICE. 

Jaime Melendi 48 K 


NTA " j AT U,5;p*jAT 12,5;" Y 
PULSE PLAY ";AT 13,5jp$;AT 

14,5;" PARA VERIFICAR "; AT 
15,5;p* 

5060 VERIFY "LISTAS" 

5070 CLS • PRINT AT 18,7;" PARE 
EL CASSETTE BEEP 2,24 
5080 INPUT "TODO CORRECTO? S/N " 
; # *: IF +*<>"S" AND 'F*<> ,, N H THEN 
GO TO 5080 

5090 IF P*="S" THEN CLS ! POKE 
23658,0: GO TO 9999 

5100 GO TO 5000 

6999 

7000 REM ************ * ******* *** 

*** RUTINA DE ****** 
*** PRESENTACION ****** 

7001 

7010 CLS : PRINT AT 3,10; FLASH 
1}" ATENCION " 

7020 BEEP 2,12 

7030 PRINT 5,í ;"En caso de que e 
ste programa se ROMPA en cualqü 
ier momento y quiera continua 
r ejecutándolo" 

7040 PRINT ■’ INVERSE 1; "nunca pu 
1 se RUN"; INVERSE O;" BRIGHT 
1;" pulse GOTO 100 " 

7050 PRINT *■■•';» PULSE UNA TEC 
LA PARA CONTINUAR" 

7060 PAUSE O 
7070 RETURN 

7199 

7200 REM *********************** 

****** RUTINA DE ****** 
****** PANTALLA ****** 
*********************** 


7201 

7210 PLDT 3,123: DRAW 248,0: DRA 
W O,“80: DRAW -248,0: DRAW 0,30: 

PLOT 3,107: DRAW 248,0: PLOT 3, 
75: DRAW 248,0 

7220 PLOT 3,59: DRAW 248,0: PLOT 
123,75: DRAW 0,-32: ‘PLOT 147,12 




DRAW 0,-16 


7230 PRINT BRIGHT 1;AT 7,i;"!"; 
AT 7,19;"2";AT 9,1;"3";AT 13,1;" 
4";AT 13,16;"5";AT 15,1;"6 N ;AT 1 
5,16;"7" 

7240 PRINT AT 7,3;”N. alumno:";A 
T 7,21;"Curso:";AT 9,3;"Apellido 


s y nombre: " ; AT 13, 3; 11 Idi orna: " ; A 
T 13,18;"Reí/Et:"jAT 15,3;"Ap/Su 
s: N ;AT 15,18;"Repite:" 


7250 RETURN 



CORRECCIONES 


1 

N* a 1umno: 2 2 Curso: 8 

3 

■Apellidos y nombre: 



Martines Sanjuan, Luis 


4 

Idioma: F 5 Rel/Et: 

R 

6 

Ap/Sus: S 7 Repite; 

N 
















L£J Poseo dos interfaces, uno para 
impresora Centronics y otro para 
joystick. Muy a menudo los utili¬ 
zo, o sea que tengo que estar desco¬ 
nectando uno y conectando el que 
me interesa con bastante frecuen¬ 
cia. Mi pregunta es si tal opera¬ 
ción, con el tiempo, puede peiju- 
dicar al conector de expansiones 
del Speetrum o a los interfaces. Y 
si es así, qué solución me podéis 
dar. 

Iván Sansa 
Barcelona 


LíLJ Tu problema no sería tal si to¬ 
das las casas dedicadas a la fabrica¬ 
ción de estos productos se dieran 
cuenta de que puede interesarnos 
utilizar varios interfaces simultá¬ 
neamente o, como es tu caso, tener 
ambos conectados constantemente. 
De hecho muchos interfaces pre- 
veen esta posibilidad y disponen de 
otra salida por la que podremos co¬ 
nectar nuevos periféricos. 

De todas formas en tiendas espe¬ 
cializadas podrás encontrar un «la¬ 
drón de expansiones»: el Currah 
microSlot, gracias al cual podrás 
«multiplicar» las salidas del bus 
trasero para que admita más peri¬ 
féricos. 


'—I Según el manual del Speetrum 
la instrucción BASIC IN x carga el 
par de registros be con x y realiza 
la instrucción assembler IN a,(c). 
¿Qué valor tendría c en IN 31? ¿Y 
en IN 32762? 


cular entre 255 y el menos signifi¬ 
cativo sustrayendo al valor a calcu¬ 
lar el conseguido anteriormente 
multiplicado por 255. Si descom¬ 
ponemos de esta manera el número 
32 quedará 0 en el registro b y 32 
en el c. Si hacemos lo mismo con 
32762 el resultado será de 127 
para el registro b y 250 para el c. 
Para calcular el valor de un par de 
registros de dos celdas de memoria 
deberemos multiplicar el byte más 
significativo por 255 y sumarle el 
menos significativo. 


trucción. Pues bien, resulta que 
DEFB es una pseudoinstrucción, 
es decir que al Z80 no le dice nada, 
pero al ensamblador le indica que 
los siguientes valores debe introdu¬ 
cirlos directamente en memoria 
(DEFine Byte). Deberás pasar por 
algunas «experiencias» de este tipo 
antes de lograr el dominio comple¬ 
to de tu ensamblador, pero, sí no 
desfalleces, en poco tiempo puedes 
conseguirlo. Cuenta con nosotros 
para cualquier otro problema que 
te surja. 


[p 1 Tengo el ensamblador de códi¬ 
go máquina «Astron» de Dk’tro- 
nics. Cuando lo cargué en mi Spec- 
trum de 48 K e introduje el progra¬ 
ma del número de mayo, «Spec- 
trum parlanchín», apareció en la 
pantalla un mensaje en el que me 
impedía la colocación de etiquetas 
iguales en líneas distintas (líneas 
del programa: 17, 18, 19,20 y 21). 
¿Cómo se puede solucionar esto? 

Eduardo Fernández 
Las Palmas de Gran Canaria 

0 Las «etiquetas» a que te refie¬ 
res no son tales sino «comandos» 
assembler , por lo que deberás de¬ 
jar un espacio antes de teclearlos 
para indicarle a) ensamblador que 
no deseas poner ninguna etiqueta 
en esa línea. Seguro que estarás 
pensando que en las listas de mne- 
mónicos Z80 que seguramente has 
leído y releído no aparece esta ins¬ 


üJ¿Cómo puedo crear números 
aleatorios en código máquina? 
¿Podéis decirme cómo relacionar 
la forma de coordenadas X (0-255) 
e Y (0-175) con los archivos de 
pantalla (16384-22528)? Quiero 
saberlo para hacer un fdl en C/M, 
no me aclaro con la forma de guar¬ 
dar la pantalla que tiene el Spec- 
trum. 

Quiero poner en contacto dos 
Speetrum a través de las conexio¬ 
nes del cassette. Para hacerlo emi¬ 
tiría por el canal 254 un l o un 0 y 
lo recibiría en el otro Speetrum 
por el 253. Lo que quiero saber es 
si hay interferencias, y si no las hu¬ 
biese qué retardo tendría que po¬ 
ner entre señal y señal para poder 
transmitir sin errores. 

Miguel Angel Olivar 
Madrid 


Jesús Manzanal 
León 

0 Para introducir este tipo de pa¬ 
rámetros en memoria el ordenador 
los descompone en dos bytes (dos 
números entre 0 y 255) que son los 
que se almacenan (en nuestro caso 
en el par be). Para «descomponer» 
así un número entero, que deberá 
estar comprendido entre 0 y 
65535, procederemos de la siguien¬ 
te forma: El byte más significativo 
lo conseguiremos hallando la parte 
entera de la división dei valor a cal- 



PRQX1MO MES... PROXIMO MES... PROXIMO MES... PR 


HELP Y BETA BASIC. Utilidades muy útiles. 

Cálculo de estructuras con Speetrum. 

Microdrive, ese desconocido. 

Graphi-QL, un programa de dibujo 
muy especial. 




ÍOH Ql>£ MOfteMD W£a/£S/] 
tí (\dqoito ceew a? 
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Para generar números aleatorios 
desde el código máquina podemos apro¬ 
vecharnos del hecho de que la memoria 
RAM del ordenador, para que no se 
pierda, necesita ser «leída» con mucha 
frecuencia. Esta función la realiza la 
ULA constantemente, «refrescando» la 
memoria completa en pocas milésimas 
de segundo. El registro R lleva la cuen¬ 
ta de ía zona de memoria que en ese mo¬ 
mento se está «refrescando», por lo que 
si conseguimos el valor de este registro 
obtendremos un número difícilmente 
predecible (ya que varía constantemen¬ 
te y a gran velocidad). Esto lo podemos 
hacer gracias a una instrucción del Z80 
(LD A,R) que hace precisamente eso: 
carga en el registro A el valor de) regis¬ 
tro de «refresco». Una vez hecho esto 
tendremos en el registro A un valor 
pseudoalcatorio que estará comprendi¬ 
do entre 0 y 127, las aplicaciones que 
queramos darle son ya otro problema... 

En cuanto a tu segunda pregunta es¬ 
tamos totalmente de acuerdo contigo: 
¡este sistema de almacenar la pantalla 
es verdaderamente endiablado! ¡Pero, 
oh maravilla de ROM! Disponemos de 
una rutina (PIXEL ADDRESS) ubica¬ 
da en la dirección 8874 (22AA hex) 
cuyo propósito es aliviarnos de este 
problema: si la llamamos (CALL 8874) 
con el valor de la coordenada X en el re¬ 
gistro B y el de Y en C, volverá dándo¬ 
nos su dirección en el archivo de panta¬ 
lla en el par de registros HL y su posi¬ 
ción dentro del byte en el registro A 
(¡ojo!, da la posición de izquierda a de¬ 
recha, es decir, 0 para el bit 7 v 7 para 
el bit 0). 

El método de comunicar dos Spec- 
trum mediante EAR y MIC al que ha¬ 
ces alusión es, en teoría, perfectamente 
practicable. No deben producirse nin¬ 
gún tipo de interferencias. El sistema, 
de todos modos, es muy delicado. De¬ 
berás ante todo idear un protocolo que 
ponga de acuerdo a los dos ordenado¬ 
res; para ello has de tener perfectamen¬ 
te calculados los tiempos de ejecución 
de cada instrucción que utilices. Tam¬ 
bién es posible que necesites crear buf- 
fers para almacenamiento temporal de 
datos. Para recibir de la conexión EAR 


deberás hacer IN del bit 6 del port 254 
y OUT al bit 3 del mismo port para 
«excitar» la conexión MIC. Esperamos 
noticias tuyas (con el problema resuel¬ 
to, por supuesto). 


Li J Les mando esta carta con el fin de 
si serían tan amables de decirme cómo 
puedo introducir el programa RESET 
publicado en el número dos de su revis¬ 
ta TODOSPECTRUM, ya que a mi 
que no tengo ni idea de código máqui¬ 
na o assembler me es imposible desci¬ 
frar todas las cosas que pone en dicho 
programa. 

Otro motivo de esta carta, y también 
relacionado con el código máquina, es 
el siguiente: yo no sé cómo introducir 
todas las sentencias que hay en los pro¬ 
gramas de este tipo y quería preguntar¬ 
les cómo se introducen estas sentencias 
por medio de POKES; o sea que lo que 
quiero saber es por qué números se de¬ 
ben cambiar estas sentencias para ser 
introducidas. 


Alberto Sánchez 
Alcalá de Henares 


R 


En la sección «Preguntas y Res¬ 
puestas» del número seis publicamos 
un programa en BASIC, enviado por 
Altor García, que cargaba esta rutina 
en una sentencia REM al principio del 
programa. Copiando este programa al 
pie de la letra no debes tener ningún 
problema para disfrutar de esta nueva 
función en tu ordenador. 


En cuanto a tu segunda pregunta te 
recomendamos adquieras algún libro de 
iniciación ai código máquina, donde 
puedas aprender todo lo referente a este 
lenguaje. De todas formas en el apéndi¬ 
ce A del manual y junto al juego de ca¬ 
racteres encontrarás todos los mnemó- 
nicos del lenguaje ensamblador y sus 
correspondientes códigos en decimal y 
hexadecimal. 
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Si deseas colaborar en TODOSPEC¬ 
TRUM remite tus artículos o progra¬ 
mas a Bravo Muríllo 377, A. 28020 
Madrid. Los programas deberán estar 
grabados en cassette y Jos artículos 
mecanografiados, 

A efectos de remuneración, se anali¬ 
za cada colaboración aisladamente, es¬ 
tudiando su complejidad y calidad. 















SP-800 



impresora de SEIKOSHA SP-800, con un ordenador personal puede 
Q& coíndiíiaciojjes de letra dfferentes, desde 96 caracteres por segundo 
muy alta calidad de letra, además es gráfica en alta densidad, 

R con Introductor automático hoja a hoja . 

un procesador de textos puede costar 

ib ir tienen deiasiato aftas. 

ÉSTOS SON NUESTROS MODELOS! 


La nueva 
escribir 
a 20 con 

Su precio es de ÍÍ9. 900 
Can un pequeño ordenador personal , 
alrededor de cíen mil pesetas. 

Infírmese y aprenderá por qué las máquinas de 
Muestra calidad es #, SE3XO ,f ; 
nuestros precios, únicos 
Si desea más información, 
consulte con nuestro distribuidor 
más cercano, llame o escriba a: 

DIRECCION COMERCIAL: 

Ay BUfco Ibufímx, ÍM-IIÉ 
JS0Z7 VALENCIA 
t»¡ . < 99 > 372 99 99 
TéltH 92229 

DIRECCION COMERCIAL EN CATAL Uf)A; 

C/ífup1tin»r f ffl-í-lPli 
999 t I BARCELONA 

T*i .í 93J 323 92 I 9 

E*t« pie de piglm he nido rttllzido ÍTit*gri»cnt« con I a nut^i Upriturii 

¿SE X KOSHA SP- 8 ÜO 



MODELO 

VELOCIDAD 

columnas 

TIPOS OE 
LETRA 

P V . P . R . 

INTERFACE 

PARALELO 

GP -.&05 LA DEL SPECTRUM 

4 0 Lpa 

32 

_ 

19 9&0 

SP-5B LA PEQUERA 

-te cp> 

46 

2 

2P 900 

&P-&0Q LA ECONOMICA 

E0 cp» 

se 

2 

47.9&& 

LA DE COLOR 

Sí c p i 

8fl- i fls 

3 

69 900 

5P-S00 LA PERFECCION 

96 E p. 

90-137 

20 

©9 900 

ep-52ee la de oficina 

20® c p■ 

I30-2T2 

10 

199 9S0 

fiP^£42Q la rlAO RAPIDA 

42S rpi 

13S-272 

T© 

299 90& 


í Lo* precio* indjced** 
perlíelo Ctniranict, p#r* 
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LAUDE 


EL REGALO FIN DE 


fia sido un curso duro para el Horno Sapiens más pequeño Y 4a Garantía Inveetronica. Exíjala aJ comprarlo ya que 

de la casa. Le protege de cualquier anomalía o reparación. 


Levantarse antes que el sol Acostarse muy larde 
preparando los trabajos Y durante el día, una jomada plena 
de esfuerzo físico y dedicación intelectual. 

Ahora que el curso acata, su hijo merece un premio... y una 
gran ayuda, un Spectmm 


Invierta en el futuro de su hijo Prémiele con un Spectmm. 
Quien bien acaba el quiso, bien empieza el siguiente. 

SPECTRUM. EL ORDENADOR CLASICO. 


El microordenador más popular del mundo Tres de cada 
cualro que se compran son Spectrum. 

Con la mayor cantidad de software disponible. Más de 
cinco mil títulos juegos, programas de educación y 
utilidades... 
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